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[57] ABSTRACT 
A method and system for electronic data interchange 
(EDI) translation testing displays a plurality of opera- 
tor-interactive panels for conUolling pre-production 
translation of EDI document files. The EDI Test Facil- 
ity integrates numerous translator programs to detect 
translation errors. Once an enor is detected, the EDI 
test facility displays the translation error and permits an 
operator to interactively correct the segment of the 
EDI document file containing the error. Once the error 
is corrected, the EDI Test Facility permits retranslation 
of the segment. When correctly translated, the segment 
is added to all previously corrected segments of the 
EDI document file in a working file. The method and 
system continue until stopped by the operator or EDI 
document file translation is complete. 
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ble EDI document format requirements causes the 
ELECTRONIC DOCUMENT INTERCHANGE TEST translation to be either significantly incorrect or fully 
FACILITY prohibited. It is, therefore, important that the sending 

trading partner ascertain that all documents satisfy the 
A portion of the disclosure of this patent document 5 information and format requirements of the receiving . 
contains material which is subject to copyright protec- trading partner before the trading partner sends them, 
tion. The cx)pyright owner has no objection to the fac- Known methods of testing EDI document transla- 
simile reproduction by anyone of the patent document tions require that when a receiving trading partner 
or the patent disclosure, as it appears in the Patent and encounters a transmission error, the sending partner 
Trademark Office patent file or records, but otherwise 10 must identify and correct the error and, then, resend a 
reserves all copyright rights whatsoever. corrected test EDI document file. This process often 

requires nxmierous iterations and creates time lapses 
TECHNICAL FIELD OF THE INVENTION ^^^^ ^^^^ productivity. Correctmg translation errors 

The present invention relates to the methods and using a conventional EDI editing system has not pro ven 
systems for testing the transmission of data and more 15 practical, because any adjustment in the data link of 
particularly, to a method for testing the transmission of EDI transmission requires that every character foUow- 
electronic data interchange (EDI) documents files. ing the modification be adjusted. This results in a signifi- 

cant amount of tedious effort between both trading 
BACKGROUND OF THE INVENTION partners. This type of batch processing by the recipient 

In recent years many companies, in trading with 20 is further limited, because only upon the detection of an 
other companies, for the transmission and receipt or error by the recipient can action be taken to correct the 
interchange of business information have come to use problem. Once this problem is corrected, it is necessary 
computerized systems known as electronic data inter- to completely rerun the file which may be halted again 
change or EDI systems. EDI systems enjoy the particu- as a result of yet another error later in the EDI docu- 
lar advantage of having an established set of standards 25 ment file translation. 

applicable to various types of business documents. For As a result, in order for EDI document transmissions 
example, in an EDI system, an invoice has a defined to reach their full potential efficiency and speed there is 
format and, as a result, may be rapidly transmitted be- a need for as a method and system for rapidly increasing 
tween trading partners as a compact data file from the the data translation rate between trading partners, it is 
sending trading partner's computer to the receiving 30 necessary to have a rapid EDI translation test facility 
trading partner's computer. To create the compact data that does not strain the productivity of the receiving 
files, an EDI operator must first translate the EDI docu- trading partner. 

ments. The EDI document files are compact data files There is a need for a method and system that elimi- 
that the receiving trading partner receives. These com- nates the batch processing necessary to identify errors 
pact data files are translated back into documents by the 35 in EDI translations, 

receiving trading partner. There is yet the need for a method and system that 

AppHcations for EDI methods and systems include permits EDi system operators to identify and correct 
business activities such as purchasing, accounts payable EDI transmission errors without the need to begin 
and accounts receivable functions, banking transac- again the EDI document file translation process, 
tions, electronic fimds transfer and other document 40 SUMMARY OF THE INVENTION 

transfers. Other EDI system applications include order 

filling and processing between trading partners. Not The present invention, accordingly, provides an elec- 
only is this helpful in buying and selling goods, but also tronic data interchange testing method and system that 
trading partners that are transportation companies may overcomes the problems and satisfies the needs previ- 
use this information to maximize the efficiency of the 45 ously considered- 
transportation services they provide. By using EDI According to one aspect of the invention, there is 
systems, a trucking company, for example, may easily provided a method for pre-production translation test- 
keep track of the origin and destination of all of its ing of EDI document files that comprises the steps of 
shipments throughout its service region. generating a plurality of control displays for controlling 

The format standards for EDI documents are gener- 50 the pre-production translation of the EDI document 
ally loosely written so that they can satisfy a wide vari- file. Next, translation of the file takes place until a trans- 
ety of user needs. Thus, for example, while an EDI lation error arises. The method of the present invention 
invoice format may have well-defined daU fields, sev- is to display the translation error on one of the control 
era! aspects of the EDI invoice arc variable. Asa result. displays so that the error may be corrected using an 
trading partners who agree to use an EDI system may 55 input to the control display. The next step is to correct 
agree to the format of communication between them the displayed translation error as indicated by the con- 
prior to conducting a business transaction, and thereaf- trol display. This process of translating the file unta a 
ter communication between the trailing partners has the translation error arises, displaying the translation error 
potential to occur on an almost immediate basis. for correction, and correcting the translation error con- 

Although EDI systems represent a significant im- 60 tinues until the EDI file is fully translated, 
provement in business communicatioi-s between tividing According to another aspect of the invention, there is 
partners, known EDI systems stan-J i^i.need of ia'prove- provided within one of the control displays a plurality 
ment in document translation cffi ;t^ncy. A penicular of initial queries for inputting initialization data pertain- 
problem in the translation of EDI dco^^ments is tlii; .'^eed ing to the EDI document file. The queries relate to the 
to assure that the documents, as they a.?'.: generated fvom 65 particular translation configuration for translating the 
various points within a trading partner, satisfy the EDI data into a particular application program that has the 
document format EDI requirements. This is particu- ability to use the EDI document file. Moreover, a par- 
larly important in cases where failure to satisfy applica- ticularly attractive aspect of the invention is its ability 
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to produce textual segment files for containing in tex- APPENDIX A provides a listing of the software 
tual form predetermined segments of the EDI file and code that the preferred embodiment of the present in- 
permitting an operator to edit the textual segment file in vention implements for EDI document file translation 
response to the indicated translation error. Once all testing. 

errors have been noted and a translation of the relevant 5 DETAILED DESCRIPTION OF THE 

section is complete, the segment is stored in a working INVENTION 
file. The working file contains all of the previously 

corrected segments. Through this segmented approach. The preferred embodiment of the present invention is 
the working file becomes a corrected copy of the origi- best understood by referring to the FIGURES wherein 
nal EDI document file. Hence, upon the complete trans- 10 like numerals are used for hke and corresponding parts 
lation of the original EDI document file, the operator of the various drawings. 

has the original EDI document file and a working EDI The EDI test faciUty of the preferred embodmient 
document file that was created by the segmentation integrates within the EDI system environment an oper- 
process. ator interactive translation test facihty that is accessible 

A technical advantage of the present invention is that 15 through a computer time share option link. In this envi- 
it permits EDI systems to reahze their intended benefits ronment. the EDI test facility of the preferred cmbodi- 
by eliminating redundant data flows that occur in ment has numerous test configuration options. The EDI 
known systems when EDI document files have transla- test facility of the preferred embodiment integrates its 
tion errors. The EDI test facility of the present inven- operation with the principal conamunication path 
tion provides the receiving trading partner the ability to 20 among EDI partners for EDI transmissions known as 
perform pre-production translation testing of EDI doc- the EDI system gateway. This permits an EDI system 
ument files just prior to their translation. As a result, the operator to locate and select an EDI transmission file 
EDI document file is fully translated and any errors for immediate translation testing. Once translation test- 
incurred during this process are logged and can be made ing has commenced, error situations are brought to tiie 
available to the sending tradmg partner as advised cor- 25 operator's attention along with recommendations for 
rections; thus minimizing unproductive time lapses and correcting the error. The operator has the option to fix 
iterative communication cycles between trading part- the error and continue testing until the translator de- 
jjg^ tects another translation error. As translation testmg 

Another advanUge of the present mvention is that it continues, the test results arc saved into a working file, 
fully avoids the batch processing that was heretofore 30 The working file may be tested to verify a successful 
necessary in the detecting EDI transmission fde errors. translation. Additionally, the preferred embodiment 
Using the method and system of the present invention, generates a log file to provide the operator with a listing 
a Uading panner may employ the EDI test faciUty to of errors encountered durmg translation testmg. 
correct bteractively EDI document file transmission The EDI test facility may be used on any computer 
errors. This aUows the trading partner to perform a 35 equipped to perform EDI transladons and may operate 
single EDI document file translation and therefrom in conjunction with any commercially av^le EDI 
produce an error-free translated EDI document file. translator software package. Examples of translator 
Because only one translation operation is necessary to packages usable with the preferred embodiment mclude 
produce the error-free EDI document file, the present the foUowdng: transettlements, interbndge and propn- 
inveotioncliminatesmuchofthetedious work and pro- 40 etary translators. ^ . 

ductivity strain presenUy existing in EDI document file To use the EDI test facility of the preferred embodi- 
translation inent, the operator may enter a time sharmg option and 

Yet another advantage ofthe present invention is that receive an EDI document file on which to perform 
it permits the integration of numerous EDI appUcation testing. To perform the operation, the EDI test facility 
programs for error correction and translation. The inte- 45 of the preferred embodiment presents die opct^tOT with 
gration that the present invention provides is fimction- a set of operator friendly panels. FIGS. 1^ lUustrate 
ally transparent to the operator and permits EDI docu- the panels or screens that the operator sees m testing 
ment file translation with any type of translator. The EDI document file for translation errors. In particular, 
solution that the preferred embodiment provides per- FIG, 1 illustrates the 'Translator Configuration 
mits changing the test process from one in which a 50 Screen" that the preferred embodiment provide to the 
number of inadequate or unrelated tools are used for EDI translation test operator. The Translator Configu- 
EDI translation to a process where an integrated and ration Screen of FIG. 1, as mdicated by Translator 
easy to use tool kit exists to aid the EDI translation Configuration label 10, permits the operator to mput a 
operator. As a result, the interactive testing that the Command for EDI translation at point 12 of the screen, 
preferred embodiment provides significantly reduces 55 the EDI translator program that the operator u« at 
transmission testing cycle time. This reduces software point 14, the EDI translation plan at pomt 16, the EDI 
development costs and improves overall productivity in Steph"b, at points 18 and 20, EDI parms at point 22, and 
EDI document file appUcations among trading partners. at point 24 the abihty to respond to a query of whether 

a translation identified at pomts 14-22 as being trans- 

BRIEF DESCRIPTION OF THE DRAWINGS ^ 

The invention and its modes of use and advantages The EDI StepUb input defines a Hbrary associated 
are best understood by reference to the following de- with the test facility wherein the translator program 
scription of illustrative embodinfents when read in con- resides, and the EDI parms input receives the parame- 
junction with the accompanying drawings, wherein: ters that the operator desires to pass to the trandator 

FIG. 1 through 4 are various translation screens us- 65 program. The operator may provide these Translator 
able in a association with the preferred embodiment; Configuration Screen inputs to the EDI test fadhty of 

FIG. 5 is a flow chart illustrating the operation ofthe the preferred embodiment usmg a key board or other 
EDI test facihty of the preferred embodiment; and computer input dcyice. 
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Associated with each of the inputs of points 14-24 are output point 62, (e.g., "00200"),- the applicable Version 
respective parameter descriptors. In particular, for the at output point 64 (e.g., "002001"), and the particular 
Program input point 14, the preferred embodiment indi- Agency for output at point 66 (e.g.. **X"). Because of 
cates at point 26 that the proper response to the pro- the "Last Segment Process Successfully" output point 
gram input 14 is the "Translator Name." For the EDI 5 68, the operator at all times knows the last segment that 
plan input 16, the "DB2 Plan" parameter descriptor 28 was successfully processed. At the "Reason" output 
meansthat for this particular translator, the DB2 plan is point 70, the operator receives the same information 
used. For Steplib inputs 28 and 20, descriptors 30 and 32 that previously appeared at Error Explanation output 
specify that the "Full Name" of the Steplib is necessary 52 of the Test Facility Screen shown in FIG. 3. This 
and that no quotes may be used. Farms input 22 must be 10 provides as the reason why the translation error oc- 
Translated Farms, as descriptor 34 indicates. The ap- curred. Fmally, the operator is prompted to "Correct 
propriate response for the "Agaia" input 24 is "yes" or Identified Errors And Hit PF3 to retranslate the cor- 
"no" with a default to "yes" as indicated by descriptor rected segment (e.g., segment 3 in this example). 
35 The bottom part of the operator screen appearing at 

Once the operator establishes the translator configu- 15 FIG. 4 shows the portion of the original EDI document 
ration by appropriately responding to the Translator file that the segment file contains. With this small seg- 
Configuration Screen of FIG. 1, the operator indicates ment, the operator may identify the error that the Test 
the completion ofthis step by hitting the enter key. Test Facility Search lists and correct it After which, the 
Facility Screen of FIG. 2 appears. Immediately thereaf- operator may depress the PF3 key of his keyboard to 
ter, identifies Test Facility label 38 the Test Facility 20 retranslate the segment and thereby verify that the error 
Screen. With this screen, the operator may input a com- has been corrected. 

mand at point 12 and set up particular files necessary to In using the EDI Test Facility of the preferred em- 
perform the EDI document file Uansmission testing. bodiment, at each segment that the test facility identi- 
For example, in the preferred embodiment, the operator fics, the Test Facility output of FIG. 3 and the Edit 
provides to the EDI Test Facility the input file at point 25 Screen output of FIG. 4 communicate to the operator 
40. In this example, the input file has the name, the existence of an error and the error location, as well 
".AAA.EDI.I.EXPCWMRT." The operator defmes a as provide to the operator the ability to correct the 
work file at point 42 (e.g., ".DAMMSBG.WORK"), a error interactively. Once the error is corrected, the 
segment file at point 44 (e.g., ".DAMMSBG.SEG- operator retranslates the corrected segment and the 
MENT**), and a log file (e.g., "DAMMSBG.LOG") at 30 EDI Test Facility of the preferred embodiment contm- 
point 46 The Test Facility Screen also assists the opera- ues to translate the EDI document file (e.g., 
tor by describing the types of fields necessary at points DAMMKMMFB.DATA of FIG. 3) until the transla- 
40-46 by the input descriptors 48 which appear as tion is complete. 

".(Full Name, No Quotes)." The Translation Incomplete signal 53 of FIG. 3 mdi- 

In response to this information and a subsequent com- 35 cates that the translation of input file DAMMKMNLF- 
mand to conduct testing that the operator inputs at BDATA is not completed because of the error identi- 
point 12 the Test Facility Screen can display the exis- fied by segment number output 50 and error explanation 
tence of a translation error. FIG. 3 shows the Test Fa- output 52 O-e., "ERR14, Badsql Return Code - 924 at 
cility screen that appears during translation testing. segment 000003), 

FIG. 3 shows outputs at Segment Number designator 40 FIG. 5 shows a flow chart of the preferred EDI Test 
50 and Error Explanation output 52 to provide indica- Facility embodiment to provide to the operator the 
tion of errors. In the example, the segment number screens appearing in FIG. 1-4. First the operator fills m 
where an error exisU is segment number "000003" hav- the Transfer Configuration Screen to establish the con- 
ing an associated error code of '*EER14" and an expla- figuration files of step 74. Next, the operator fills m the 
nation of "Bad Sql Return Code - 924." This means that 45 test facility panel for input, work, segment, and log files 
at segment number 000003 there was a DB2 problem in at step 76. Also at step 76, using the Test Facility 
the EDI document fUe translation. With this error iden- screens of FIGS. 2 and 3 the EDI Test Facility of the 
tifying information, the operator may insert an "Edit" preferred embodiment displays any error messages ans- 
command into the Command input point 12 of the Test ing from the EDI translation. Next, the EDI Test FacU- 
Facility Screen to see the Edit Screen that appears at 50 ity of the preferred embodiment at step 78 permits the 
J7JQ 4 operator to fill in the translator configuration of FIG. 1. 

The preferred embodiment of the present invention, The preferred embodiment then translates the data at 
upon identifying the translation error, places a segment step 80 and queries whether an error has been found m 
of the original input file that contains the translation the EDI file translation at step 82. 
error into a segment file. The segment file, in the exam- 55 If no error occurs, the preferred embodiment sends a 
pie of the preferred embodiment, is identified at point 44 translation successful message to the Test Facility 
of the Test Facility Screens of FIGS. 2 and 3 and the screen at step 84 and then permits the operator to 
Edit Screen designator 54. The Edit Screen designator change the input work segment and log files and con- 
54 shows that the segment file name is "DACCJBM- tinue at steps 76 and the Translator Configuration of 
.SEGMENT," The Edit Label 56 indicates to the :)per- 60 step 78. On the other hand, if an error is found at step 
ator that the operator is viewing the Edit Screen. 82, EDI test facility of the preferred embodiment at step 

In the Edit Screen, as in the Translator Config'iri.tion 86, issues the information to the Test Facility Screen 
Screen of FIG. 1 and the Test Facility Screen of F/.GS. (see FIG. 3) and provides the operator with the ability 
2 and 3, command input 12 permits the opera' oi to to use the Edit Facility of the preferred embodiment. At 
provide a command input. Other outputs of the ::.dit 65 step 86, the preferred embodiment also logs the problem 
Screen include descriptive output of the results of vhe in the previously designated log file (see FIG. 3). 
translation at output point 58, the Standard for transia- Under the edit facility, the EDI Test Facility permits 
tion at point 60 (e.g., "ANSI") the Release descriptor at the operator to make changes to the data at step 88 and 
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query whether any changes were made at step 90. If no 
changes were made, control returns to step 76 where 
the operator is to flU in the input, work, segment, and 
log file as well as to display the error message arising 
from the failed translation. On the other hand, if 
changes are made then the program control returns to 
step 80 to translate data and determine whether any 
further error exists. 



8 



Appendix A provides a complete listing of the source 
code for the EDI Test Facility of the preferred embodi- 
ment. 

Although the present invention and its advantages 
have been described in detail, it should be understood 
that various changes, substitutions and alterations can 
be made herein without departing from the spirit and 
scope the invention as defined in the appended claims. 
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TRANSDIM DS 

JRANREAS DS 

TRANBIF pS 

TRANLAST DS 

TRANTAG DS 

TRANVAL DS 



DSECT 



XL 2 
XL 2 
XL 3 

DCBPARMS , 3C-DCBPARM5 , C'X ' 



CLS 
CLS 
C L12 



CL2 
CLl 
CL71 
CLIO 



CLS 
CLfi 
CL2Q 

.... „ CL^O 

TRATiSTOfT^QO TP:&RTAG,3E-rRAHUG,C"C' 

EDirSBEO C3ECT 



U-JINC EOITSBED.RIO 
STM Rl^.RlZ. 12CRI3) 
18 R10,R15 

Rl I .20Cd( .RIO) 

LA RH,2a<.a( ,Rin 

UIING EDrTSBED+<;096,Rll 
LA R1,5AVEAR£A 
ST R13,4<.Rl; 
ST R1,S(,RI3) 
LR R 15,R1 



SPACE 1 



NOTE BASE AODRESSIBILITY 

SAVE ENTRY REGS 

COPY ENTRY ADDRESS ~ 
INITIALIZE 2M0 BASE REG 



POINT TO SAVE AREA 
LINK TO CALLERS SAVE AREA 
LINK TO OUR SAVE AREA 
ESTABLISH SAVE AREA 



SET UP AN ESTAE EXIT 



SPACE 1 

ESTAE TBA3END, 

PARAM=(RIO), 



ESTABLISH AN ESTAE 



SPACE 1 



INITIALIZE 



00010000 
00020000 

aoQSoooo 

00040000 
_00050000_ 
00060000 
00070000 
OQOSOOOO 

jioo90oao_ 

00100000 
OQllOOQQ 
00120000 
J>0130000_ 
00140000 
00150000 
00160000 

j)oizoooa__ 

00180000 
00I9QOOO 
00200000 
_0Q21OOOO_ 
00220000 
00230000 
00240000 

_po2Sooao_ 

00260000 
00270000 
00220000 

__00290000_ 
00300000 
00310000 
00320000 

_00330000_ 
00340000 
00350000 
00360000 

_OQ37ao.oo_ 

00380000 
00390000 
00400000 

„00410000, 
00420000 
00430000 
00440000 

_.O045QO00 
00460000' 
00470000 
004«0000 
0Q49Q0Q0 

""00500000' 
005I000O 
0052000G 
O053QO00 

""00540000" 
00550000 
00560000 
00570000. 

"00530000" 
00590000 
0060QQQG 



00610000 
00620000 
00630000 
00640000 

00650000 

00660000'* 
-X 00670000 
3£ QO6SO000 
liLJ3O69O000 
00700000' 
^00710000 
+00720000 

90750000. 

00740000 
-3t 00750000 
» 00760000 
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SPACE 1 

or FLAGX,INIT 
USIHG IHAOCB.Ria 



SET INITIALIZING 



LOAD £P = ISPHN1C 
SPACE 1 

ST RCISPLADDR 
^PACg 1 



LOAD LINK PROGRAM 
SAVE ADDRESS 



DEFINE PROCESSSING OPTIONS FOR DIALOGUE SERVICE^ 
SPACE I 



* 

3E 



L 'RlSaSPLADDR 
CALL CIS), (CONTROL, ERRORS, RETURN), VL 
SPACE 1 



LOAD ADDRESS OF ISPLIHiC ROUTINE 



"DEFINE MISC. VARIABLE NAMES TO ISPF 



L^'^^^ R15 I5PLA0DR ijAn_Ann£F<:^gjnf_TSPl INK ROUTTNE 

-CALI Cl5),(VrjgFINE,i:US£RLlT , ZUSER , CHAR, L EHGTHS ) , VL 

L^*^^ R1S,1SPLADI3R LOAD ADDRESS OF I5PLINK ROUTINE 
CA LL C 15 K ( V DEFI NE . DSNLIT > DSN . CHAR . L FNGTH';4 V , VL 



r*^^ RIS,ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL C15),(VDEFINE,DSNWLIT,D5NW,CHAR,LENGTH^A),VL 

"L^^^^ R15.ISPLADDR LOArmRrSS Qt^ ISfLlNK RCUfiHt" 

CALL <IS),CVD£FIH£,DSNALlTT.DSNAT,CHAR,LENGTH'i^i),VL 

t^*^^ R15.ISPLADDR LOAD ADDRESS OF ISPLINIC R OUTINE 

"CALL arr; c?b£FiNE7gsnmTp;^^Ap:tTiAiCT^ 

L^'^^^ R15.ISPLAD0R LOAD ADDRESS OF ISPLIHIC ROUTINE 
CALL nSKgVDEFIHE.D5HCLITT,D5NCT,CHAR,LENGTH^^),VL 



I Rl= ISPLADDR LOAD ADDRESS OF ISPLINIC ROUTINE 

CALL (15):(VDEFINE,DSNCLlTP,DSNCP,CHAR,LEHGTHA<i),VL 

-T^^^RI^SPraDTJR COAirflDDRESS-DF^SPnHniOUTINE- 

CALL aS).(VDEFINE,DSNILITT,DSNIT,CHAR,LEHGTH44),VL 
SPACE i 

L R15.ISrLADDR LOAD ADDRESS OF I5PLINK ROUTINE 

CALL ( 15 ) . C VDEFINE, DSHILITP , DSNIP , CHAR, LENGTH'*'* ) , VL 

L***^^ RIS, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CA L 1 f 1 S ) . C V D EFT N g . DSNXL ITT. D SNXT, CHAR^ERGTJjaai^ . 

5PAC*^ 1 

L RIS, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15), CVDEFIHE, DSNXLITP , DSHXP , CHAR , L£NGTH<*^ ) , VL 

"l ^"^^^iS, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15),<VDeFINe,DSN0LITT,DSN0T,CHAR,LENGTH't4),VL 

r^^iilSJSPLADDR L04D^DDRESS_0F_;SPLlNie-R0yiIH£. 

■ CALL (15 ) > C VDEFINE, OSNQHTP, DSNOP , CHAR, LENGTH^a ) . VL 

1 

L R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 
__CA L I ri , (YTIFFTNF.DSNSLTT.DSHS.C HAR.LENGIK^ iJL^i 

L^*^^ R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL C15), CVDEFrNE,DSNLLIT,DSNL,CHAR,LENGTH44),VL 

_^ EACE ^^3^^sp^;^DpR LOAD ADDRESS OF ISPLINK ROUTINE 



CALL (153, C VDEFINE, STDLIT,5TD, CHAR, LENGTHS ),VL 
V^^^ P IS.TSPLADDR L OAD ADDRESS _^qF_ISPLIHlLJiaUIIli£ 



CALL (15), (VDEFINE, RLSLIT,RLSrCHAR,L£NGTH5)*VL 

L^*^^ R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 
PA H g 5) , C V DFFT NF . VFRSt TT . V ERS , CHAR A EHGTEIZl^ 

L^**"^ R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL CIS), C VDEFINE, ACCTLIT,AGCY, CHAR, L£N6TH2),VL 
SPACE 1 



L RfsTlSPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15) , (VDEFINE, REASLITrREAS, CHAR, L£NGTH7I),VL 

L^*^^ R1 5>T5P LADPR wiAn_annpP<:c:_nF T<;P1 JNtg ROUTTHE 

CALL (15 ) , (VDEFINE, HUMaLiT , HUMB'/CHAR , LENGTH6 ) , VL 

5PACE 1 

L R1S,ISPLADS3R LOAD ADDRESS OF ISPLINK ROUTINE 
C A 1 L CIS) , (VD EFIN E, LASTLIT^LASTSE G ^HfljU.LENGTH6 ) , VL 

"space 1 

L R15, ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL CIS ),CVDEFINE,RTC,RTHCODE, HEX, LENGTHS), VL 
SPACE I 



-T "R15, ISPLADDR ' LOAD ADDRESS OF ISPLINK ROUTiNE 

CALL C 15), ( VDEFINE, RE£Z,REE2C0D£,HEX,LEN6TH2),VL 



00770000 

O07SQ0OO 
00790000 
Q02QQQGO 
O081O000 

oaszooQO 

0QS300Q0 

002:40000 

00850000 

'00860000 

00370000 > 

00S8QQ0O 

00890000 

'00900000 

00910000 

00920000 

00930000 

"00940000 

00950000 

00960000 
_p097Qa00 

00980000 

00990000 

OlOOOOQQ 

_oioiooao 

OIOZOQOQ 
01030000 
01040000 

01050000 

Q1Q60QQQ 
01070000 
Q1O80Q00 
01090000 

"01100000 
01110000 
01120000 
01130000 

"01140000 
01150000 
OllfiOOOO 
01170000 

■"01130000 
01190000 
O12O0Q0Q 

01210000 
01220000 
01230000 
01240000 

^oi25oaoo_ 

01260000 
01270000 
Q128O0OQ 

.01290QOQ_ 

013000QQ 
01310000 
Q13200QQ 

P1330000_ 

01340000 
01350000 
01360000 

01370aOO_ 

01380000 
01390000 
Q1400000 

P1410000„ 

01420000 
* 01430000 
01440000 

01450000. 

01460000 
01470000 
01480000 

01490000 

01500000 
01510000 
01520000 

ai5300oa_ 

01540000 
01550000 
01560000 
01570000, 



01530000 
01590000 
01600000 
01610000. 
Q162O0O0 
01630000 
0164QQO0 
01650000 
"01660000" 
01670000 
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SPACE 1 

I R15>I5 PIADDR LOAD ADDRESS OF IS PLINK ROUTINE 

"CALL ClT77CVD£FIN"OTD,DD^RR,CHAR:L£MGTH5nVL 
SPACE 1 ^ 

CREATE TABLE HE ED ED FOR FIRST PA HEL X 

SPACE 1 . . ; 

L R15,ISPLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL C15K CTBCR£ATE,VARTAB LE >>VARLIST,NQHRITE),VL 



"SPACE^r 
LTR R15,R15 
BH2 ERROROl 
SPACE 1 



ERROR? 
YES- 



RETRIPyE TSO USERID 



1. R15,IS?LADDR LOAD ADDRESS OF ISPLIHK. ROUTINE 

CAL L < IS ) , ( VGET, USERUIST , SHARED 3 , VL 
SPACE 1 



LA 

USING 
DSLISTSX D5 
-LA- 



ALLOCATE DI5P=SHR DATASETS NEEDED BY TRANSLATOR 
SPACE 1 

Jtitl nYMRB + S9qVFRB-S99RB.SqqVRBAl SFT TO ALLQCATg 

R2,0SH5TS POINT TO DATASET LIST 

DCBPARMS,R2 GET ADDRESSABILITY 

OH 

JlLuDSALLQCS P..aiNt.TO_rEXT_UNn_LIST_ 



ST 
CLI 
BE 
J3YC-. 
MVC 
MVC 
LA 



R1,DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLlt 
0(R2),C* • END OF LIST! 

ALLOCOLD YE3- 
jrXXDDtS95.TUPJ\a^a2TUHnC3JLJ)CBXDDNtLJ3nLJ)DHAM£_ 



FINDBLNX DS 
CLI 
BE 

^LA_ 

BCT 

FOUNDBLX DS 
MVC 

LA— 

MVC 
BAL 
B 



TXTDSN+S99TUPAR-S99TUNlTC<i4)»=CL'*'4' ' BLANK OUT DSN 
TXTDSN+S99TUPAR-S99TUNITCL»ZUSER).2USER COPY TSO USERID 
R15,TXTDSN+S99TUPAR-S99TUN1T POINT TO WORIC AREA 
_S.l^^ SEL-COUMI 



OH 

0(R15),C* • 
FOUNDBLX 
_B15uJ(R15i_ 



FIND FIRST BLANK 
FOUND IT- 

POINT TO NFXT BYTF 



R1<*,FIMDBLNX 
OH 

0(';,R1S),=CL^ ' .TF. ' SET MIDDLE NODE 

S15j.^<Raj5J JNC9EMENL.P0INT.EK 

~0C8,R15),DCBXDDMM SET REST OF DSN 

R9,DYNA GO ALLOC FILE 

CKERRORX ERROR OH ALLOCATION 
OH 



POINT TO NEXT ENTRY 
CONTINUE 



LA R2,L *DCflXHEW(R2) 

B DSLISTSX 

CKERRORX DS OH 

CLC = XL2' 170 8' .DYNRB-»S99E RR0 R-S99RB LO CATE E RROR? 

BNE ERROR02 NO- 
LA R1,DSALL0CN POINT TO TEXT UNIT LIST 
ST R1.DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 
MVC T XTRECFH+599TUPAR-599TUNIT(L_'DCBXRFMTj^PCBXRFMT 



MVC 
MVC 
MVC 
BAL 



"TXTLRECL+599TUPAR-599tUHlt(L'DCBXLREC),DCBXLREC 
TXTBLKSZ+S9gTUPAR-S99TUHITC L 'DCBXBLKS ) , DCBXBLK5 
TXTPRIME+S99TUPAR-S99TUMIT C L » DCBXPRIM) , DCBXPRIM 

_R9,DYNA GO ALLOC FILE 

E'RRORd? 



B 

DROP 
SPACE 



NEXTLISS 
R2 

1 



ERROR oFaIlOCATIOH 
CONTINUE 



ALLOCATE DISP'^OLD DATASETS HEEDED BY TRANSLATOR 



» 

X 

X 

S PACE I 

7SLL0COLD DS '. 

MVI DYNRB+S99VERB-S99RB,S99VRBAL SET TO ALLOCATE 

LA R2,DSLISTa POINT TO DATASET LIST 



DSLISTOX 



LA 
LA 

FIND8LNK DS 

PLL. 

BE 
LA 
BCT 
FOUNDBLK D S 
MVC 



USING DC3PAR«S,R2 GET ADDRESSABILITY 

DS OH 

LA R1,DSALL0C0 POINT TO TEXT UNIT LIST 

ST RI,DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 

CLi 0^ R2 ) , C * ' END O F LIST? 

"be ALLQCSO YES- 
MVC TXTDD+S99TUPAR-S99TUNITC3).DCBXDDNW SET DDNAME 
MVC TXTDSN+S99TUPAR-S99TUNIT(4<i),=CL*i4' ' BLANK OUT DSM 

JttVU: rXTDSN+S92.TUeARr599.IilNIT.(L!2U3e?).,iVir.£R.C0PJC_T35 

Ri5.TXTDSH+S99TUPAR-S99tUNIT POINT "J WORK AREA 
Rl«i,'i4 SET COUNT 

OH 

_0CR153.x.C-:_J EIND_EJRSI_lLAlit4- 



rOUNDBLK 
RIS.ICRIS) 
R1<*,FINDBLNK 
JJH. 



FOUND IT- 
POINT TO NEXT BYTr 



0<^,R15),=CL4' .TP. « SET MIDDLE NODE 



01-^30000 
01690000 
Q170QO0O' 
01710000 
01720000 
01730000 
'01740000 
01750000 • 
01760000 
01770000 

"oi7a'Ocoo 

01790000 

oiaoo^OQO 
oisiodoQ 

01820000 
OlSiOOOO 
01340000 

_0i83aooo 

01360000 
01370000 
O18SOQ00 

JJ1890000 

01900000 
Q191Q0QQ 
01920000 

_P1930000 

01940000 
01950000 
01960000 

_019ZOQ00_ 
01980000 
Q1990000 
02Q0OO0Q 

_02010000 
02020000 
02030000 
Q204QQ00 

_02050000 
02060000 
02070000 
02030000 

„02090000 
02100000 
02110000 
02120000 

_J]2130000 
02140000 
02150000 
02160000 

__02i7Jioaa - 

02ISOO0O 
02190000 
02200000 
02210000 
02220000 
02230000 
02240000 
__0225000Q 
02260000 
02270000 
02280000 
02290000 
02300000 
02310000 
02320000 

02330000 

^ Q234Q0Q0 
3( 02350000 
■Jt 0236 0000 
02370000 
— 02330000 
02390000 
Q2400QQQ 

02410000 
02420000 
02430000 
02440000 

02450000 

02460000 
02470QOO 
02480000 
_P2490000 
Q2500QOQ 
02510000 
02520000 
02530000 
02540000 
02550000 
02560000 
.02570000 
02530000 
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INCREMENT POINTER 
SET REST- OF DSN 
Jsa-ALLOC-ErLE. 



CKERROR 
OH 

R2,L'DCBXNEWCR2) 

J)5LI5I0:X 

CKERROR DS OH 

CLC =XL2*1703'iDyNRB+S99ERROR-S99RB LOCATE ERROR? 
BNE ERROR02 HO- 
LA RUOSALLOCH -POIHT JO J[E}q^UMII^tIST^ 



ERROR ON ALLOCATION 

POINT TO NEXT ENTRY 
jraNUNUE 



St R1;dYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLK 
MVC TXTRECFM+S99TUPAR-S99TUHrTC L » DC3XRFHT) , DCBXRFMT 
MVC TXTLRECL+S99TUPAR-S99TUHITCL 'DCBXLREC),DCBXLREC 

MVC TXTBLK52+S99TUPAR-S99TUNITCLj:DCBXaLKSUDCBXBLK5 

"Five TXTPRlHE+399TUPAR-S99tUNltc'L'DCBXPRIM)»DCBXPRIM 
BAL R9,DYNA GO ALLOC FILE 
B ERROR02 ERROR ON ALLOCATION 
_B N EXTLT5Q CQHTINUg 



a — 

K 

S — 



DROP R2 

SPACE 1 

"I^IOCATE SYSO UT HEEDED BY . TRANSLAI.OR_ 



ALLOCSO 



SPACE 1 
DS OH 

LA R USOA LL QC PQ INT TO JLEXT.UNIH L 1ST 

Rl7DYNRB+S99TXTPP-Sg9RB STORE ADDRESS IN REQUEST BLK 



MVI DYHRB+S99VERB-S99RB,S99VRBAL SET TO ALLOCATE 

LA R2/S0LIST POINT TO SYSOtH LIST 

'SOLISTX D S pH__ , . ■■^ 

BE GETVARS YES- 

MVC TXTDD+S99TUPAR-S99TUNITC3).aCR2) COPY DDNAME 

BAL R9,DYNA ^GO ALLOC^DATABASE 

" - ■ ERROR" ON ALLOCATIOH 



ERR0R02 
R2,S(R2) 
SOLISTX 
SPACE 1 



LA 



POINT TO NEXT DDNAME 
CONTINUE 



RETRIEVE PANEL VARIABLES FOR DISPLAY 



SPACE 1 

GETVARS DS OH 

L R15.ISPLAD0R LOAD ADDRESS OF I5PLINK ROUTINE 

CALL C15),(VGET,SAULrST, PROFILE), VL 
SPACg ] 



DISPLAY CONFIGLIRATIOH PANEL TO GET FILE NAMES 



CONFIG 



UNCONC 



_SPAi:£Jl- 




OH 

Rl.DSUNCONC POINT TO TEXT UNIT LIST 

Rl, DYNRB+S99TXTPP-S99RB STORE ADDRESS IN REQUEST BLIC 

0YNRBt599^EajEL;5ai£B^59.9VRaDC_SEI_TQ UNAU-QQATE 

R2,D5LI3T POINT TO DS LIST 

OH 

=C'V5AM',0CR2) END OF LIST? 

UNALCONE YES- 



TXTDDU+S99TUPAR-599TUNlTCa),0(R2) COPY DDNAME 
R9,DYNA GO UNCONCAT FILES 
3f+<i ERROR ON UNCONCAT 

p?,l Q^CR7) EOIMt.IP NFXT DDNAME 



UNALCONF DS 
LA 

SI_ 

MVI 
LA 

UNALDSX DS 
CLJL 



UNCONC CONTINUE 
OH 

R1,DSUNAL0C POINT TO TEXT UNIT LIST 

^UDYNRB±599T;$XRPrS9.9RB.SI0RE.ADDRESS.IN.R£QUESJLJLX- 
DYNRB+S99VERB-S99RB,S99VRBUN SET TO UHALLOCATE 
R2,D5LI5T POINT TO DS LIST 



OH 

jice2).j:i- 



FND nF 1 TSTT 



BE DtSPCOHF YES- 
MVC TXTDD+S99TUPAR-S99TUNITC8),0(R2) COPY DDNAME 
BAL R9,DYNA GO UNALLOCATE FILE 
ji 5f+5 ^ERRaR_ON_JJNALLOCATJQN_ 



LA R2,52CR2) 
B UNALDSX 
SPACE 1 
DISPCDNF DS QH 



POINT TO NEXT DDNAME 
CONTINUE 



L R15,I5PLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15),CDISPLAY>PANEL3),VL DISPLAY 
SPACE 1 

CH R 15.=H'S ' EHD XRETURN ENTE RED? 



BE ENDSESS 
NI FLAGL,FF-INIT 
SPACE 1 



YES- 
RESET INIT FLAG 



g 



ALLOCATE DISP=SHR DATASET5 NEEDED BY TRANSLATOR 



025900QO 
02600000 

_j]26iooao 

02£20000 
' 02630000 

a26<toaoo 

_026500d0 
02660000 
02670000 
02630000 

^02690000 

02700000 
02710000 
02720000 

02730000 

Q27<40Q0Q 
02750000 
02760000 

^02770000 

02720000 
02790000 
^ 0280Q000 
«_O2810OOa 
^ 02820000 
02830000 
02S40QOO 

P28S0OO0 

Q2S60OO0 
02870000 
02S3QOOO 
02S90000 
02900000" 
02910000 
02920000 
02930000 _ 
029^0000 
02950000 
G29600QO 
02970000 
=T"029800OO 
X 02990000 
-»( 03QO00QQ 
03010000 
03020000 
03030000 
03040000 

^33050000 

03060000 
» 03070000 
03080000 

03090000 

03100000 
03110000 
03120000 

03130000 

b31<%OQ0O 
03150000 
03160000 

93170000 

03130000 
03190000 
03200000 

0321O0Q0 

- 03220000 
03230000 

O32<<oaoo 

03250000 

03260000 
03270000 
03280000 

P3290000 

03300000 
03310000 
03320000 

03330000 

03340000 
03350000 
03360QOQ 

03570000 

03320000 
03390000 
03400000 

03410000 

03420000 
03430000 
03440000 

— X 0 3^50000 
X Q34600QQ 

— X 03470000 
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5T 

HVI 
LA 

DSLISTX P S 

'car 

Be 

MVC 
hVC 
8AI 
B 

LA 
B 

CONCLIST DS 
LA 
ST 

M VI 

LA 

CONCHEXT DS 
CLC 

3E-» 

MVC 
LA 

. MVC 



SPACE 1 

LA Rl.DSALLOCS POINJ TO TEXT UNIT LIST_ _ 

Rr7DYNRBT599TxT??^99RB StOROO'DRES^lJT'REQOHST flLJC 



DYNRB+599VERB-S99RB,S99VRBAL SET TO ALLOCATE 
R2,D$LIST POINT TO DATASET LIST 
OH 

"0 < fi2 TTt ^ '■ ER injrTTsr! : 

CONCLIST TES-- 

TXTD0+399TUPAR-S99TUUlT(aK0CR2) COPY DDMAME 
TXrOSn»S99TUPAR-S99TUMlT(<*'i) .5CR23 COPY D S HAME 
GO ALLOC FILE 



ERROR OM ALLOCATION 
POItlT TO MEXT DATASET NAME 

CONTINUE 



R9. DYIU 

R2.i2CR2J 

DSLISTX 
QH 

Rl.DSCONCLS POINT TO TEXT UNIT LIST 

RL,DYNRB+S99TXTPP-Sg9RB STORE ADDRESS IN REQUEST BLK 

nrNRB+S99 VEafl-S99RB. S99VRBCC'SET TO ALLOCAIf 

R2,DSLI3T POINT TO DATASET LIST 

OH 

sC'VSAM',0CR2) END OF LIST? 

DISPPRIM YES- 



TXTC0HC+S99TUPAR-S99TUMITCa),0(R2) COPY ODNAME 
R2,5ZCRZ) POINT TO NEXT DDMAME 

TXTCOHCX,0CR2) COPY SECOND ODNAME 



JAi. R9,DYNA„ 

B ERR0R02 
LA R2,52(R2J 
B CONCHEXT 



^GO,ALLOC_FILE 

ERROR ON ALLOCATION 
POINT TO NEXT ODNAME 
COffTIMUe 



DISPLAY PRIMARY PANEL 



DI5PPRIM DS 
LA 
TM 

BNO. 



OH 

R12,LOC0C3 
OCBOFLGS.OCBOFOPN 



SPACE 1 
CLOSE (CR123) 
SPACE 1 
J, 8 UiKl2 



POINT TO LOG DCB 
IS IT OPEN? 
JiOz 



SPACE 1 
FREEPOOL CI) 
L0GCL05E DS OH 

LA R1,DSUNAL0C 



CLOSE IT 



FREE QSAM BUFFERS 
.PPINI.TO.TEXT_UHIT_UIST_ 



ST Rl/DYNRa+S99TXTPP-S99RB StORM"ADDR"ESS IN REQUEST BLK 

MVI 0YNRB+599VERB-S99RB,S99VRflUN SET TO UNALLOCATE 

MVC TXTDD+599TUPAR-S99TUNIT<3),=CL5"UScRFILE' 

BAL R9,DYNA 60_U HA I, L_0 C 



^ J£+<* ERROR ON UNALLOCATIQN 

MVC TXTDD+S99TUPAR-399TUNIT<a),=CL8'INPUT' 
BAL Rg,DYNA GO UNALLOC 

B »+ 4 ERROR _0N_ UNA L L OCATI DN_ 



live f XTDD+S99TUPAR-S99TUNITU ) , =CL5 'SGMTFILE' 
BAL R9,DYNA GO UNALLOC 

B X-fc« ERROR ON UNALLOCATION 

SP ACE 1 

"MVC TXTDD+S99TUPAR-599TUNIT(a),=CLS'LaG' 
BAL R9,DYNA 60 UNALLOC 

B W+4 ERROR ON UNALLOCATION 

SPACE 1 

T S 3711 ?rA DG?? LQA ms dOJ^ESS flF ISP a fl ITKoUrr HT" 

CALL C15)>CTBT0P,VARTABLE),VL DISPLAY 
SPACE 1 

L R15,ISPLADDR LOAD ADDRESS OF ISPLIN IC ROUTIN E 

CAlL Cl5TrcTBDl5FL,\/AftT2[5LE;pRIMARY3;\fL*BlSPLAY 
SPACE 1 

CH Ri5,=H»5' 
BE CONFIG 



'spA:cE"r 



END/RETURN ENTERED? 
YES" • • • 



DELETE AND RECREATE TABLE OF ERRORS 



— 5E 



SPACE 2 

L R15,ISPLADDR LOAD ADDRESS- OF ISPLINIC ROUTINE 

CALL C15),CTBCLQSE,VARTABLE),VL 

■JPACEJ 

L R15.I5PLADDR LOAD ADDRESS OF ISPLINK ROUTINE 

CALL C15),(TBCR£ATE,VARTASLE-,VARLIST.N0WRITEJ,VL 
SPACE 1 

BNZ ERROROl YES-"^ 
SPACE 2 



JiLLOCAI£_JNP.UI_£lUJ5££ClEIEDjr-y5ER. 



— K 

» 



SPACE 2 

LA RI.DSALLOCS POINT TO TEXT UNIT LIST 

_SJ Rl-LDrNRB+S99TXTP.e=595RB_STORE_AD0RESS.jN.REQU£SX-aUL. 

MVI DYMRB+S99VERB-S99RB»S99VRBAL SET TO ALLOCATE 



034SO00O 
03490000 
03500000 
03510000 
03520000 
03530000 
'035*10000 
03550000 
03560000 
03570000 

03580000 

03590000 
03600000 

03610000 
03620000 
03630000 
03640000 

03650000 

03660000 
03670000 
03630000 

.03690000 

03700000 
03710000 
03720000 

03730000 

03740000 
03750000 
03760000 

03770000 

03780000 
S 03790000 
03800000 

p 3810000 

03820000 
" Q3330Q0Q 
Q384000Q 

.03850000 

03860000 
03370000 
03880000 

p 3390000 

03900000 
03910000 
03920000 

03930000 

03940000 
03950000 
03960000 

03970000 

03980000 
03990000 
04000000 

04010000 

04020000 
04030000 
04040000 

04050000 

04060000 
04070000 
04070000 

04090000 

04100000 
04110000 
04120000 

^04130000 

04140000 
04150000 
04160000 
04170000 

04130000 

04190000 
04200000 

04210000 
04220000 
04230000 
04240000 

04250000 

04260000 
0<;270000 
042S00Q0 

04290000 

04300000 
04310000 
04320000 

P4330000 

04340000 
04350000 
04360000 

04370000 

04380000 
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TXTDD+S99TUPAR-S99TUHIT(5),=CL5'US£RFILE' ScT DDMAME 
TXTDSN+SgSTUPAR-SggTUHITCW^DSN COPY DS HAME 
.Ri^DTNA ^Ga.ALLOCJEILE- 



ERROR02 ERROR ON ALLOCATION 

1 

R1,DSALLOCO POINT TO TEXT UNIT LIST 
.RUDYNRB+S99T;<TPPTS99Ra.ST0Re^AD0R£SS JN. REQUESJUIK 
DYMRB+S99VERB-S99R8,S99VRBAL SET TO ALLOCATE 
TXTDD+S99TUPAR-S99TUNlT(a),=CLa«L0G' SET DDMAME 
TXTDSN+S99TUPAR-599TUNITC<iii),DSNL COPY DS NAME 
R9.,.PYHA ^G0.ALL.OC_fUE 




ERRQR02 ERROR OM ALLOCATION 

Rl.DSALLQCO POINT TO TEXT UNIT LIST 

RUDYNRB+599TXTPP-399RB STORE ADDRESS IN REQUEST BLK 
DYNRB+S99VERBrS99RB,S99yRBAl._S.ET.Ta..AL.L.0CArE_ 



txtDD"+S99TUPAR-S99TUHITC5),=CL8' INPUT' SET DDNAME 
TXTDSH+S99TUPAR-S99TUHIT(^4),DSNH COPY DS NAME 
R9,DYNA GO ALLOC FILE 

ERROR02 FRRQR ON AL LOCATION 



LA R12.INPDCB 
MVC DDERR/DCBDDNAM 
SPACE 1 - 

nPf^ CfR171.CIHPUT)> 



POINT TO DCS 
SET DDNAME IN ERROR MSG 

OPEN FILE 



SPACE 1 

TM DCBOFLCSiDCBOFOPN WAS OPEN SUCCESSFUL? 
BNO ERROROfi HO- 

dcbrec fm,dcbrecf-»dcb rec8r fb records? 

ErrorIo 



BNO 
LH 
CH 
BNE 



RQ,DCBLRECL 

RO,=H'SQ» 

ERRORIO 



ERROR 
GET LRECL 
LRECL = aOT 
NO ERROR 



SPACE 1 

CLOSE (CR12)) CLOSE FILE 

MVI^^.DYNRB+S99VERB-S99RB,S99VRBAL_SET TO ALLOCATE. 

^TXTDD+S99TUPA/f^S99TUNIT(a);'=CLS'SGMTFILE» SETTiDfJAME^ 
TXTDSN+S99TUPAR-S99TUNIT(^^).DSNS COPY DS NAME 
Rg,DYNA GO ALLOC FILE 

ERR0R02 ERROR ON ALL OCATION 

PQINTn'O'DCa 



MVC 
MVC 
BAL 



"C S R 1 2 : OUT DCBT"^ 

MVC DDERR^DCBDDNAM 
SPACE 1 

OPEN CCR123, (INPUT)) 



SPACE 1 



TM 

BNO 

TM 



SET DDNAME IN ERROR MSG 
OPEJJ FILE 

WAS OPBl SUCCESSFUL? 
NO- 



DCBQFLGS*DC3QF0PN 
ERR0R06 

DCSREC FM. CCBRECV-KDCBR ECBR VB RECORDS? 

"ERRORll NO- BRRQR 

RO,OCaLRECL GCT LRECL 

R0,=H'259' LRECL = 259? 

_eR£PSJJ NO ERROR 



BNO 
LH 
CH 

BNE^ 

'SPACE i 
CLOSE ((R12)) 
1 

IDCBt^CL9'USERFIi£l_5ET_JNPyT_DDNAME^FqR_REBLOXK- 



CLOSE FILE 



SPACE 
MVC_ 

"mvc 

LA 
MVC 



0DCB,=CL8 'INPUT* SET OUTPUT DDNAME FOR REBLOCK 
RIZAOCDCB POINT TO STORE DCB 

OOERR^DCBDDNAM SET DDNAME IN ERROR MSG 



^?AC£_1 

OPEN CCR12J. (OUTPUT)) 
SPACE 1 

TM DCB0FLGS,DCBOF0PN 
JNS .ERRflfifli- 



OPEN FILE 

WAS OPEN SUCCESSFUL? 



TRAHLQOP DS OH 
SPACE L 

CALL RE3LK,(DCBNAME5).VL GO REBLOCK FILE FOR XLATOR 



LTR 
BNZ 
SPACE 



R15,R15 
ERRORQ'V 
1 

^LUSPLADD^ 



SPACE 1 

CALL (15), (SELECT, LENGTHU,SELCMD),VL 
SPACE 1 

l,TR Rl|tiV^- BYP ASS CHECK 



REBLOCK QIC? 
NO- 

lOAD ADDRESS OF I5PLINK ROUTINE L 



YE5- 



BN2 BYPASST 
SPACE I _ _ 

^ GET INFORMATION ABOUT PROBLEM 



SPACE 1 
CHECKERR DS OH 
LA R12,ERRDCB 



"MVC DDERR.DCBDDNAM 

LA RO. BYPASST 

STCM RO.B'OllI* ,DC2E0DA 

SPACE 1 



_P0INT TO £RROR_DCB 

SET' DD'hAME IN ERROR MSG 
SET EQD ADDRESS 

. IN DCB 



OPEN C(R12), (INPUT)) 
SPACE 1 

TM DCBQFLGS,DCBOFOPH 
BNO ERROROfi 



"RO^BOFrcfT 



OPEN FILE 

WAS OPEN SUCCESSFUL? 

NO- ■ 

"GE-TBUFFcODDRESS 



0^390000 
0<«<4aOQQO 

JJA^IQOOO 

04420000 
0443Q00Q 
Q4440000 

^04450000 

Q446Q00Q 
04470000 ' 
Q4430QQQ 

_Q4490000 

04500000 
Q45IO0Q0 
04520000 

_a453Q000 

04540000 
04550000 
0<i560000 

_P5S70000 

04530000 
04590000 
04600000 
_a461000Q 
04620000 
04630000 
04640000 
. 04650000 
04660000 
Q46700QQ 
0468QQQQ 
04690000 
04700000 
04710000 
04720000 
04730000 
04740000 
047S0000 
04760000 
04770Q00 
—04730000 
04790000 
04600000 
04310000 
04320000 
Q433QQ00 
0484QOO0 

04850000 

04660000 
. 04670000 
04880000 

04890000 

04900000 
Q491OQ00 
0^920000 

0<j93OO00 

04940000 
04950000 
04960000 

^34970000 

0^930000 
04990000 
05000000 

psoioooo 

05020000 
Q503000Q 
05040000 

P505t)000 

05060000 
05070000 
05030000 

05090000 

05100000 
OSllOOOQ 
05120000 
05150000 
05140000 
05150000 
-3f 051600 00 
O51ZQ0OO 
05180000 

osigo'-oo 

052000)0 

o52iajf;o 

'05220000 
Q5230fJiia 
0524CCUn 
-0525000!-; 
~0526 00l'U 
052/0001 
0528 OOOC 
05290000 
"05300000 
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SPACE L 

G£T ERRDCB 

SPACE I 

-cnjsrTTRnrr 

SPACE 1 

LR R1,R12 

SPACE 1 



RETRIEVE ERROR RECORD 



-cnisETifE 

COPY DC3 ADDRESS 



"TREEpaarm 

SPACE I 

L R6, BUFFER 

AH R6,=H<4' 

USING TRANRECRfi 

KVC STD,TRANST«D 

MVC RLS.TRANRLSe 

MVC VERSJRANV.ERS 

"RVC AGCY , TR AH AGCY 
nVC REAS^TRANREAS 
MVC LASTSECTRANLAST 
P AaL-_ DB L HO R D ,JRANU4SL- 

"^P I]BLW0RD,=P*1* 
UNP1C NUMB.DBLMQRD 
01 NUMB+S.X'Fa* 
M\i C SEP.TRANS DUj 



■FREE~Q3AM"BUFFcR5 ' 

GET ERROR BUFFER ADDRESS 

POINT PAST RDM 
GET ADDRESSABILITY 
SET STAHOARO 
SET RELEASE 

SET.VERSIQN 

SET AGEHCY 
SET REASON 

SET LAST SEGMENT PROCESSED 
PACK LAST_S£GMENT.FIELD_ 



ADD'gNE TO GET PROBLEM SGMT 
GET IT BACK TO EBCDIC 
SET-ZONE • - 

SFT SEGMENT DELIH ETER 



SPACE 1 



UPDATE LOG 



SPACE 1 

L R2, BUFFER 

MVC OCSQ.RZ). =CLSO' 



GET BUFFER ADDRESS 
BLANK OUT BUFFER 
rnPY THTO BUFFER 



SPACE 1 
PUT L0GDC3,CR2) 
SPACE 1 



WRITE RECORD 



ADD REASON TO TABLE 



SPACE 1 
J, 815^5fUDDR 



CALL C15),(TBADD,VARTABLE),VL 

LTR RI5,R15 5^?°*^- 

BNZ E RR0RQ7 YES^ 

SPACE"! 



_L 0 A D ADORFSS OF TSPIINK ROUTINE^ 



jf BUILD STORE FILE 



SPACE 1 

LA R12,ST0REDCB 
MVC DDERR.DCBDDHAM 

SPACE 1 

^ UR12;,(0UTPUIJ) 



POINT TO STORE DCB 

SET DDNAME IN ERROR MSG 



"OPEN 
SPACE 
TM 
BNO 



DCBOFLGS^DCDOFOPN 
ERROR06 _^ 

1 "rzTbuFfer 
mvc oc30,r2).=cl80' * 

LA R6,TRANST0R 
U SING TRANST0R.R6 

CLC TRANT AGC L ' BEDZERO 
BE STORQUIT 
MVC 0 (L'TRANST0R,R2), 



OPEN FILE 

WAS OPEN SUCCESSFUL! 

- H Q- „ - 

GE-TTUFf^R ADORES 



BLANK OUT BUFFER 
POINT TO TAG 
GET ADDRESSABILITY 



13, BEDZERO END OF VALUES? 
YES- 

TRANSTOR COPY INTO BUFFER 
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QSSlQOaO 
0532QOQQ 
05330000 

05340000^ 

0535Q0Q0 
05360000 
05370000 

0533000 0 

05390000 
05400000 

05410000 
05420QOQ 
Q543QQ00 
05440000 

05450000 

05460000 
05470000 
054BQ00a 

P5490O00 

05500000 
05510000 
05520000 

05530000 

OSS'iOOOO 
— a 05550000 
H 05560000 

^ 0 5570000— 

05580000 
05590000 
05600000 

P5610000_ 

05620000 
05630000 
05640000 

g 05650000 

» 05660QOQ 

H 05670000 

05680000 
05690000 
""05700000 
OS710000 
05720000 
05730000 
""05740000 
[ 05750000 
[ 05760000 
E_0S77000a 
05780000 
05790000 
05800000 
_05alD00Q 
05820000 
05830000 
05840000 
05850000 
"05860000 
05870000 

osdaoooo 

05890000 
"05900000 



PUT ST0REDCB,(R2) 
SPACE 1 

LA R6,L'TR ANST0R(R6) 
-STORCDHT ' 



WRITE RECORD 
INCREMENT POINTER 



STORQUIT OS OH 

CLOSE (CR12)) 
SPACE 1 
LR R1.R12 
SPACE I 
FREEPOOL (1) 
SP (ICE I 



■CONTINUE" 
CLOSE IT 

COPY DCB ADDRESS 
FREE QSAM BUFFERS 



Q591OQ0Q 
05920000 
05930000 
^05940000 
05950000 
05960000 
05970000 
"05980000 
05990000 
06000000 
06010000 
06020000 
06030000 
06040000 
06050000 
-fi 06060000 



OPEN INPUT FILE 



SP&££_1 , 

"la R12,INPDCB 

MVC DDERR^DCaDDHAM 

SPACE 1 

_PPEN _<fRT?KfTNPUTn 

SPACE 1 

TM DCBOFLGS,DCaaFOPN 

BNO ERR0R06 

?PAf-F 1 



POINT TO INPUT DCB 

SET DDNAME IN ERROR MSG 

OPEN FI LE 



WAS OPEN SUCCESSFUL? 
NO- 



3t-— 
3£ — 



» 06070000 
-ft 06030000 

06090000 

06100000 
06110000 
06 120000 
06130000 
06140000 
06150000 
0616000Q 

^06170000 

Q61S0000 



OPEN TEMPORARY FILE FOR OUTPUT 



» 06190000 
06200000 



04/19/2004, EAST Version: 1.4.1 



21 



5,367,664 



22 




■SPACE I 

LA R12,0UTDCB 
MVC DDERR.DCSDDNAM 
SPACE 1 

J1PFN (fRl?K(QUTPUT)) 
SPACE 1 

OCBQFLGS»DCBOrOPH 
ERR0R06 

OH 

R9.FINDSGMT 
ERROROa 
CLOSEOlfT. 



POINT TO OUTPUT DCS 
SET DDNAME IN ERROR MSG 



JIP^N-EIL E 



WAS OPEN SUCCESSFUL r 
NO- 



L RO/B*UFFRDW 
SPACE 1 
PUT OUTDCB 

SPACE I 

fl NEXT5GMT 
CL05E0UT DS OH 

LA R12, OUTDCB 
SPACE 1_ 



YES- GO FIND SEGMENT 
ERROR- 
_EOFr_ 



POINT TO SEGMENT 
WRITE IT 



NORMAL 

POINT TO OUTPUT DCB 



"close CCRiZ)) 
SPACE 1 
LR R1,R12 
SPACE I 



CLOSE IT 

COPT DCB ADDRESS 



FRScPOOL CI) 
SPACE 1 



FREcQSAM BUFrERS 



BRING UP EDIT FACILITY FOR INPUT FILE 



SPACE 1 
EDITSGMT DS OH 

MVC TDSN.DSN5 

Ca Rl.TDSN 



.IDSHLOOP 



5 

CI I 



Til 
n + a 

OH 

Rl .ICRl 1 

o(an.C' 
lo'jaoop 

0(R1 J,C' 



SET SEGMENT FILE NAME? 
"POINT~T0"DS^< 



. SKIPTDLM DS OH 

L R15,IS?LADDR _ 

CALL (15),(EDIT,TEI1P0SN. 

SPACE 1 



POINT TO NEXT BYTE 

IS THIS A BLANK DELIMETER T 
MO- COMTIMUE 
HOVE in ASTERISK 

LOAD ADDRESS OF ISPLIMK ROUTINE 
,,PANEL2),VL 



BYPASST 



BH 
BE 
MVC 
-B. 



Rl5,=H*tf_l 
~ERROR0 9 
BYPASSX 
I DCB 



^ABNORMAl^EJURNL. 



YES- 

^ NORMAL RETURNCNOSAVE) 
CL3*5GMTF1LE' SET INPUT DDNAME FOR REBLOCK 
TRAnLooP^ £.Q_tj?AHSJLALejV.GAlil 



BYPASSX 



DS OH. 
SPACE 1 

CLOSE CCR12)) ... 

SPACE_l 

LR R1,R12 
SPACE L 
FREEPQQL (1) 

SPAC£_Jl__- 

"MVC MSGia,=CL3'EDIL05a' 

BAL R9,S£TMSGX 

B DISPPRIM 
_J}S QH_ 



CLOSE FILE 



COPY DCB ADDRESS 
FREE qSAM BUFFERS 



SET MSGID 
DISPLAY MSG 
DISPLAY- RESULTS 



MVC MSGID, =CLS ' EDIL063 ' 
BAL R9,SETMSGX 
B DISPPRIM 
^£AC£_I . 



SET MSGID 
DISPLAY MSG 
DISPLAY RESULTS 



06210000 

06220000 
06230000 
Q62400QQ 

.06250000 

Q6260000 
06270000 ' 
06230000 

06290000 

06300000 
06310000 
06320000 

06330000 

06340000 
06350000 
Q6360QQ0 

06370000 

06380000 
0639OQQO 
0640OOQO 

06410000 

06420000 
06430000 
06440000 

06450000 

06460000 
06470O0Q 

O6<3oaoo 

a 0 6490000 

^=5*06500000 
06510000 
06520000 

06530000 

""06540000 
06550000 
06560000 
06570000 

"06530000 

C6590000 
066QOQ0O 
06610000 
06620000 
06630000 
06640000 

06650000 

06660000 
06670000 
06630000 

06690000 

0670Q0O0 
Q67100Q0 
Q6720QQ0 

06730000 

06740000 
06750000 
06760000 

06770000 

06730000 
06790000 
06300000 

06810000 

Q632Q0Q0 
- - 06330000 
06340000 
06350000 



UNALLOCATE ALL FILES U5ED 



«- 

SPA££..l 

ENDSE5S DS OH 

ESTAE 0 

SPACE 1 

LA RU-D5UNAL0C 



CANCEL ESTAE 
-POINT _T0 _TEXT_UNI.T„ IIST„ 



'ST Rl^DYNRB+S99TXTPP-S99Rfl STORE ADDRESS IN REQUEST BLK 

MVI DYNRB+S99V£Rfl-S99RB,Sg9VRBUN SET TO UNALLOCATE 
LA R2,S0LIST POINT TO SYSOUT LIST 

"CLI 0^R2),C* • END OF LIST? 

BE UNALDSO YES- 

MVC TXTDD+S99TUPAR-599TUNITCS),0CR2) COPY DDNAME 
BAL R 9 .nYNA GO ^ UNA L L 0C_ 



UNALDSO 



B *+4 
LA R2,S<R2) 
B UNALSYSO 
DS OH 



'error on UNALLOCATION 
POINT TO NEXT DDNAME 
CONTINUE 



Ta "I2,DSLIST0 PQlHT TO DS LIST 

UNALDSXO DS OH 

CLI 0(R2),C' ' END OF LIST? 

BE U NALDS5 ^TES- ^ 

rtVC txtDD+S'99TUPAR-S99TUNIT?3) . 0CR2) COPY DDNAME 

BAL R9,DYNA GO UNALLOCATE FILE 



06860000 
X Q6870000 
06830000 

06890000 

06900000 
06910000 
06920000 

06950000 

06940000 
06950000 
06960000 

06970000 

069SQOOO 
06990000 
07000000 

07010000 

07020000 
07030000 
07040000 

07050000 

Q7Q6Q0QQ 
07070000 
Q7Q20QQQ 

07090000 

07100000 
07110000 
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B ERROR ON UHALLOCATIOH 

LA R2, L ' DC BXHEWC R2 ) P OINT TO MEXT DDHAME 

: B Ufi^UOSXG CQMTINUE 

SPACE 1 . :■ . 

UNALDSS D5 OH 

. LA R2 .DSLI5T5 POINT TO PS LIST ; 

xmsrus^s-Ds — oh- ZTTTTTTTI ' 

' CLI aCREKC ' EHD OF LIST? 

BE CLOSTABL YES- 

MVC TXTI)D+S99TUPAR-S99TUHITC3),0(R2) COPY DONAME 
BAL R9,DYNA 60 UNALLOCATE FILE 

R )H>4 ERROR ON UHALLaCATIQH 

LA R2.L'DCBXNEWCR2) POINT TO HEXT DDHAME 

3 y^^AU)^25 CQHTINUE 

SPACE I 

CLOSTABL DS OH 

L R^5,I5PLAD0R LOAD ADDRESS OF ISPLINK ROUTINE 

CAL I CL5 J-i-OJCUlS E , V ft RT A BLELum . 

V^^^ R15.ISPLAD0R LOAD ADDRESS OF ISPLINK ROUTINE 
CALL 'tl5),CVPUT,SAVLIST,PR0FIUE),VL 
SE&C F 1 ■■ ■ , 

a RESTORE REGISTERS AND RETURN TO CALLER _ 

3( .1 ' 

seacF. I ^ — 

RETURNX D5 ^"s^^^^rij) *^EST0 RE .CALL ERS SAVE AREA 

L R1A,12<,R13) RETURN ADDRESS 

LM pn , pT7.70(Ri:!^ RFGTSTgg^ 

BR Rl^ 

SPACE 1 _ 

I T HTs"sUBROUTINE-HILL-i;N/ALL0CATE^HE.FILE5.NE£DED. 

1 RETURN TO THE CALLER WITH A DISPLACEMENT DEPENDING ON 

3£ THE RETURN CODE IN R15. 

2 OM FHTPT- ff" RFTURN ADDRESS . — 

* RETURNS : G(R9) => ERROR RETURN 

X *»CR9 3 NORMAL RETURN 

3t . : 

SPACE 1 

DYNA DS g^ py^RBp <;fT UP REQUEST BLOCK CtiAIH 

DYNALLOC . 60 ALLOCATE IT . 

LTR^^ R 15.Rli ALLACATION.SUCCESSFULZ 

IHZ 0CR9) NO- TAKE EXIT RETURN 

B iiCR9) TAKE NORMAL RETURN 

SPACE I 

a " " " — 

« LOG MESSAGES ^ 

. SPACE 1 

^"^^ p ^iJnSPLADDR LOAD ADDRESS Of^ ISPLINK ROUTINE 

CALL (15),CL0G,M5GID),VL LOG IT 

SPACE 1 o„.,o„ 

B R R9 ggrURN __ 

SPACE I ■ 

^ SET MESSAGES ^ ' ^ ^ 

. X S PACE"! : ' 

SETMSGX DS rJIs, I5PLAD0R LOAD ADDRESS OF ISPLINK ROUTINE 

CALL (15), CSEtM5G.MSGiD),Vr LOG IT 
Br""^^ ^9 RETURN 

SPACE 1 _ 

i ERROr^DUflNES 

FRROROl DS*^^ OH JABLE.CREATE. ERROR 

£SaflfitU_D5 UM___ ^^^^ ^^^^^ ^^^^ 

mvc i1sgid,=cl3'£dil051' set msg id failure 
b- error - ' 

ERR0R02 DS^^^QH ALLOCATimTFAUURl 
tRKUKU^ ST RIS^RTNCODE SAVE RETURN CODE ^ ^ 

MVC REE2C0DE.DYNRB+S99ERR0R-S99RB SET REASON CODE 

MVC PDERR, XXTDD+S9iXUPARTS92JUNIT_SET_ DDNAME^-£1SQ 

MVC M5GID/=CL8'EDIL052' SET MSG ID FAILURE 

B ERROR 

Pffgnpg:^ P S^*^^ 0H_ ALLOCATION.EAILURH 

.Crrt Kunu : . . ris.RTNCODE SAVE RETURN CODE 
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07120000 
Q713QOO0 

OTi'iaaQa 

07150000 
07160000 
07170000 
07180000 
07190000 
07200000 
07210000 
07220000 
07220000 
a72<iOO00 
07250000 
07260000 
07270000 
Q72S0OQ0 
07290000 
07300000 
073100.00 
07320000 
.07330000 
07340000 
07350000 
07360000 
.07370000 
07330000 
07390000 

o7<;Qaooo 

.07^10000 
07420000 
07430000 
07440000 

.07450000 
Q746000Q 
07470000 
07480000 
07490000 
07500000 
07510000 
07520000 

_07530000 



— « 

St 



07540000 
07550000 
07560000 
iJjT 57.0000 
0'7S£0QQ0 
07590000 
07600000 
07610000 
07620000 
07630000 
07640000 
07650000 
~b7660000 
07670000 
07680000 
07690000 
"07700000 
07710000 
07720000 
07730000 
■"07740000 
07750000 
07760000 
07770000 
"07780000 
07790000 
07800000 
07810000 
07^0000 
07330000 
07840000 
07S5000Q 
"07860000 
07370000 
07880000 
JJ789000Q 
07900000 
07910000 
07920000 
07930000 
""07940000 
07950000 
07960000 
.0797 0000 
O79S0OO0 
07990000 
08000000 
08010000 
"08D2QQ00 
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MVC 
MVC 

Ji\JC 




REEZC0DE,DTNRB+S99ERR0R-S99RB SET REASON CODE 
D0ERR,rXTDD+S99TUPAR-S99TUNIT SET DONAME IN MSG 

MSf^rn.rri s'gDnn^^' s ft ms g td FAnuRg 

ERROR 

1 

OH REBLOCK ERROR 

B15,RTNC0DE ^SAV£_RETURN.CODE 

MSGID,=CL3'EDIL0S4» SET MSG ID FAILURE 

ERROR 

X 

OH ^ATTACH FAILURE. 

R15,RTNC0DE 
MSGID,=CL8"EDIL055' 
ERROR 

1. 



SAVE RETURN CODE 
SET MSG ID FAILURE 



ERRQR06 DS OH 

MVC MSGID,=CLS'EDIL056" 
B ERROR 
S PACE 1 



OPEM FAILURE 
SET MSG ID FAILURE 



ERR0R07 DS OH 

ST RIS^RTNCODE 
MVC MSGlD,=CLa'EDILQ57» 
B ERROR - 



TBADD FAILURE 
SAVE RETURN CODE 
SET MSG ID FAILURE 



SPACE I 
ERROROS DS OH 

LA R12,IHPDCB 
' SPACE I 

. cLosr"cll?r?Tl 

SPACE 1 
LR R1,R12 
SPACE 1 



PARSE SEGMENT 
POINT TO IHPUTDCB 



'FREEPoorrn 

SPACE 1 

LA RlZ,OUTDCa . 

: _SPACE I 

: CLOSE^ai^r^TT [ 

SPACE I 

LR R1,R12 

SPACE i 

FREcPOOL CD 

SPACE 1 

nVC MSGID,=CLa'EDILQ5B' 
ESKQS 

SPACE 1 
ERROR09 DS OH 

ST R15.RTNC0DE 
MVX: MSGID,^LJ-l£D.UJl 

B ERROR 

SPACE 1 

ERRORia - DS OH 

.CL OS E.C HMZU 

SPACE 1 

MVC MS6ID , =CLS ' EDIL Q6 0 • 

B ERROR 

S 

ERRORIl DS OH 

SPACE 1 

CLOSE (CRizn 
^SP.A.QE^ 

MVC M5GID.=CLS'EDILa61' 



TCosriT 

COPY DC3 ADDRESS 
~FREE~05Atr BllFFERS" 



POINT TO OUTPUT DCB 



""CLOSEST 

COPY DCB ADDRESS 
FREE QSAM BUFFERS 
SET MSG ID FAILURE 



EDIT ERROR 

SAVE RETURN CODE 



WORK FILE FORMAT ERROR 
i:.LD.5£_£lL.£ 



SET MSG ID FAILURE 



SEGMENT FILE FORMAT ERROR 
CLOSE FILE 



SET MSG ID FAILURE 



B 



■ERR0RI2 



SPACE 1 



ERROR 




,0H : 

MSGID,=CL3'EDIL062? 
ERROR 

1 

0(1 - 

R9,L0GIT 
R9,SETMSGX 
FLAG!, INIT 
ENDS ESS. 



.SYSTEM .ABEND 

SET MSG ID FAILURE 



DISPPRIM 
SPACE 1 



.EDIT -ERROR 

60 LOG IT 

GO DISPLAY MSG 

ARE HE INITIALIZING? 
jrE5-_END SESSION 

NO- DISPLAY PANEL 



THE FOLLOWING ROUTINE RETRIEVES THE NEXT LOGICAL RECORD 
FROM A DA5D DATASET . 

TNPUTSj 



R5 - RETURN ADDRESS 
OUTPUTS : 



RQ 
Rl 



INPUT RECORD LENGTH 
INPUT RECORD ADDRESS 
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SPACE 2 
READFILE DS OH 
STMRl*; , Rl , SAV EREGS 

: LA RiariNPDCB' 



ENTRY POINT IDENTIFIER 
SAVE REGISTERS 



03030000 
03040000 

03050000 

03060000 
03070000 
03080000 

J)8090000 

03100000 
03UOOOO 
03120000 

08150000 

08140000 
08150000 
08160000 

03170000 

08180000 
08190000 
Q32Q000Q 

08210000 

03220000 
08230000 
Q824Q0Q0 

: ^08250000 

03260000 
03270000 
03280000 

08290000 

08300000 ' 

08310000 

03320000 

08330000 

08340000 
08330000 
03360000 

08370000 

03330000 

03390QOQ 
084000QQ 
03410000 
08420000 
08430000 
0S440QOQ 

08450000 

08460000 
08470000 
Q8480QO0 

08490000 

QSSOQQOO 

oasiQooo 

08520000 

^08330000 

08540000 
08550000 
08560000 

03570000 

0858Q00Q 
03590000 
0860OO0Q 

08610000 

08620000 
' 08630000 
08640000 

08650000 

08660000 
03670000 
0868Q000 

08690000 

03700000 
08710000 
08720000 

08730000 

08740000 
08750000 

3£ 08760000 

36_0377aaQ0 

n 037800QQ 
3E 03790000 
3f 08800000 

3(_0881000Q 

it 03820000 
3 03830000 
3C 08840000 
- 3 t 08350000 
»"'08a60000 
X 08870000 
3E 0&8800Q0 

3t_oas90ooo 

08900000 
08910000 
03920000 

08930000 

~ 08940000 
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TM BEDFLjlGl>INeOF+PERMrERR EOF PREVIOUSLY REACHED? 
BC NALLOFF.REAOEQF YES- 
LA R0,READEOF POINT TO EOF EXI T ROU TIN E 

'STG^r"R0;B•01H'7DCBE0DA~*SAVE EODAD ADDR : ' ■ 

LA RO^READSYN POINT TO SYNAD EXIT ROUTINE 

STCM RO,B'01il*,DCBSYNA SAVE SYNAO ADDRESS 

SPACE I 
GET INPDCB 
SPACE 1 

TM DCBRECFH.DCBRECU 
Bq ALUQN,RECU 



RETRIEVE NEXT RECORD 
RECFT1 UT 

jrES-_ 



RECU 



TM bCBRECFM/OCBRECV RECFM VT 
BC ALLON. RECV YES- 
SPACE 1 

jmnFPTMFn hp FT^FP IFKGTH gECORD FORMAT 

SPACE 1 
DS OH 

LH - RO,DCBLR£CL " LOAD RECITRO LENGTH READ 
J.T.B RO , RO .UNflmCKED^ECORDSJ 



BC N2ERO,READF200 
LH RO,DCBBLKSI 
B REA0F200 



HO- 

RETRI EVE BLOCKSIZE 
RETURN 



RECV 




VARIABLE LENGTH RECORD FORMAT 
SPACE 1 
DS OH 

LH RO^Jir^RI i RETRI.EVE JtARIABLE.RECORDJL ENGTK 



Rli<i(>Rl) 
RO,=F'<i' 
READF20Q 
OIL 



POINT TO DATA PORTION OF RECORD 
ADJUST LENGTH FOR ROW 
RETURN 



CLEAR READ LENGTH 
SET EOF ENCOUNTERED 



RO,RO 

BEDFLAGI,INEOF 
OH 

DCBOFLGS ^DCBOFOEli XS^ATA SET 0-££tl 

'ALLOFF;R£ADF20fl HO- 
1 



BC 

SPACE 

CLOSE ((R12)) 
S PACE 1 



CLOSE IT 



LR R1.R12 
SPACE 1 
FREEPOOL <1) 
S PACE 1 



COPY DCB ADDRESS 
FREE qSAM BUFFERS 



SLR RO,R0 
B READF300 . 

READSYM DS OH 

SYN A DAF ACSMETH = qSAM 

SPACE 1 

5 MVC SYNADTXT,50CR1) 

SPACE 1 

3E - CO MMS GS TFXT=M5G230 



SET LENGTH 



REQU EST FO RHArr ED MESSAGE. 



COPY MESSAGE TEXT 
NOTIFY OPERATOR 



SPACE 1 
SYNADRLS 
SPACE 1 

01 BEDFLAG1,PERMIERR 



RELEASE BUFFERS 



~B READCL5 
SPACE 1 



SET PERMANENT INPUT E RROR 
~GO*CL'OSE~IF'N'£CESSAftY 



NORMAL RETURN 



SPACE I 



READF200 



Oj oh 

if R I .M0VESTAT*8 

ST ■ KO .M0VE3TAT+12 

Oj Om 

LM Rl^i.Rl.SAVEREGS 

BR R5 
SPACE 2 



SAVE FOR SEGMENT ROUTINE 
SAVE " 

RESTORE REGISTERS 



FIND SEGMENT ROUTINE 



SUBROUTINE TO PROCESS THE HEADER RECORD AND PICK 
OUT THE DATA ELEMENT AND SEGMENT SEPERATORS TO 
DYNAMICALLY MAKE TO TRANSLATE TABLES. 



Input - R9 - return address 
mqvestat+ 0 - address of segment build area 
movestat+ <♦ - length of segment build area 
mqve5tat+ «_3-ad0res3_0e_ansi/unj£di-rec0rd« 
movestat+12 - length of ansi/unjedi record 



,5PACE 3 5 

FINDSGMT DS fJoVESTATC 5 ) ,MOVESTAT RESET STATS OF BUILD AREA 

LM Rl<i,RlS,MOVESTAT+a GET WHERE LEFT OFF IN RECORD 
LT B B 1 5 .Rl i ANY-BYJES LEFT TO PR0CES51, 



BNP 
3CTR 
LA 
-EX_ 



FNDMSTRT 
R15.0 

R5,TABLE01 
.RLS.EHDALEtiA, 



NO- 
YES- GET EXECUTABLE LENGTH 
GET TABLE ADDRESS 
_E1 H D _ S EGM EHT.ID 



0S9SaO0Q 

08960000 

0S970OQ0 ■ 

"05950000 

08990000 
,09^00000 

09010000 

09(^20000 

09030000 

09Q<tQ0Q0 
_J90SOOaO 

09060000 

09070000 

09030000 
^09090000 

09100000 

09110000 

09120000 
_09130000 

Q91<tOOOQ 

09150000 

09160000 
„a9170000 

09180000 

09190000 

09200000 

_j)92ioaoo 

. 09220000 
09230000 
092'tOOOO 

_092S000Q 

09260000 
09270000 ' 
09280000 

09290000 

09300000 
09310000 
09320000 

09330000 

093^0000 
093500QQ 
09560000 

P9320000 

09330000 
09390000 
09^00000 

09410000 

09420000 
09430000 
09440000 
^09450000 - 
09460000 
09470000 
09*480000 

09490000 

09500000 
Q951Q00Q 
-S 09520000 

K 09530000 

=Jt 09540000 
09550000 . 
0956000Q 
09570000 
■~0953000C 
09590000 
09600000 
09610000 
0962DO0O 
09630000 
09640000 

09650000 

09660000 
09670000 
09680000 

P9690000 

09700000 
09710000 
09720000 

^09730000 

09740000 
09750000 
09760000 

0977OO0O 

09780000 
09790000 
09800000 

09810000 

09820000 
" 09830000 
O984OOQ0 
09850000 
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FNDS0070 D5 
STM 
B 

FNDSOQgO P S 

LA 
B 

FNDALPHA TRT 
FM0H5TRT D5 



29 

FNDS0030 
LA " R15.1CR15>R143 
LR Rl'i^Rl 

_5R Rl5-L5Ii 

OH 

R14,RlS,M0VESTAT+8 RESET STATS 
FNDHSTRT CONTINUE 
OH 



30 



MOT FOUND 

POINT PAST LAST BYTE OF RECORD 
COPY ADDRESS OF SEGMENT ID 



R15,a 
FND50070 
0(0/Ria),OCR5) 
OH 



SET ZERO BYTES LEFT OF THIS RECORD 
CONTINUE 



ICM RO.B- ILIl M10VESTAT1-12 FINISHED READING RECQRDT 



BNZ FHD5a090 
SPACE 1 

_3A!. RS^READFILE 

TM BEDFLAGi/lMEOF 
30 FNDHISOO 
SPACE 1 

LM RI^,Rl5,MOVESTAT+8 



FNDSOOga DS 
ICM 
BNZ 

L 

ST 
LA 
ST 

FNDSOIOQ DS 



HO- 

J?ETRI EVE NEX T INPUT RECOR D 
EOF'REACHEU? 
YES- 

GET RECORD ADDRESS/LENGTH 



OH 

R0,B'1111M10VESTAT*4 FINISHED BUILDING RECORD? 
FND50100 NQ- 

R1,BUFFER NO- GET ADDRESS OF BUItD AREA 

_ SAVE'lt 



Rl,MQVESTAr 
Rl,L'£RRBUFr 
Rl,H0VESTAT+4 
OH 



GET LENGTH OF BUILD AREA 
SAVE IT 



CLC 
BE 

FNDS0500 DS 
LA 
BC 



FHD506Q0 




FNDHOSOa DS 

- -s- 

LA_ 

B 

FNDHIOOO DS 
LM 

CJ?- 

BH 
LR 
B 

LR 

FNDH1200 DS 
LTR 



5£P,0CR1<») 

FNDHQ900 

OH 

R14,1(R1^) 

RlSTFNDSOraU 
OH 

Rl,f10VE5TAT+U 

Rl.ELMTCTR 

RL*»Rl*MaveSTAT 

R15,R1 

FHDHERR 

RlSiRl 

"R1A,R0 

R15,M0VESTAT+'% 

RI5,MaVESTAT+12 

51'»>RI/MQYE5TAT . 

FNDHSTRT 

OH 

R14iMaveSTAT-t-3 - 

R1,1(RX4J 

FNDHIOOO 
OH 

R1<4.R0,M0VESTAT 

_R15,R1 

FNOHllOO 
R1,R15 
FNDH1200 
OH 



HO- SEPARATOR? 
YES- 
NO- POINT TO NEXT BYTE 
'PROCESS RESr"DF"RECORD' 



UPDATE DISPLACEMENT OF SEPARATOR 
SAVE IT 

GET MOVE STATS 

RECV IGTH > SEND LGTH? 

NO— ERROR 

JSCT RECV LGTH TO SEND.LGTH 

MOVE TO RECORD BUILD AREA 
GET MAX LGTH OF BUILD AREA 
MINUS ACTUAL BYTES MOVE 
_J5AVE MOVE STAT. 



GO READ ANOTHER RECORD 

•CAIC LGTH OF REST OF SEGMENT 

_i^DD_ONE FOR_SEGMENT 

GO MOVE TO BUILD AREA 

SET UP FOR MOVE 

RECV LGTH > S END LGTH? 



YES- 

HO- SET SEND LGTH TO RECV LGTH 



R15,R1 
OH 

R1S,R15 

^NE ENDHlJiOO 

CH RX5, =H'25<5' 
BH FNDH1400 
MVCL R14,R0 
IS RISJIO 



SET RECV LGTH TO SEND LGTH 

LENGTH POSITIVE! 
_N0-_ 



STCM 
B 

FNDH1300 DS 
CLC 



S R15,M0VESTAT+8 

L R1,M0V£STAT+12 

SR RX,R15 

STW RQ^R1^M0VE5IAI±5- 

L R15,BUFFER 

SR R:14,R15 

LA RU,4CR14) 

J. R 15,BU FF RDM 



YES- TOO BIGT 
YES- 
MOVE TO RECORD BUILD AREA 

„GET_ADDR PAST.SEP^&ALQE? 

CALC BYTES MOVED 

GET TOTAL BYTES IN RECORD 

CALC RESIDUAL BYTE COUNT 

_3AV^ FOR I.ATE8 

GET BEGINNING OF RECORD 
CALC LENGTH OF RECORD 
ADD LENGTH OF RDM 

GET AD DRESS OF RDM 

SET RDW 
RETURN 



BE 
B 

FNDHl^+OO DS 
STM 



Rl<i,B'001L',0(R153 
FNDHHORM 
OH 

MQ\;ESTA T-i'giC^),BEDZERa STILL BUTLDT HG_A_S_EG?1ENTJ_ 
— — NO- 
YES- END OF SEGMENT MISSING 



FNDHEOF 
FNDHERK 
OH 

R1<^,R1.M0VESTAT 



SAVE REGISTERS 



ABEND 3, DUMP 
SPACE 1 



+ 0 



ERROR RETURN 



SPACE 1 
FNDHERR DS OH 

B 0 (R9) 



FNDHEOF 



"SPACE 1_ _ 

EOF RETURN 



'SF"ACc 
DS 



"I 

OH 



a9S60ogo 

09S7Q0Q0 

09&8Q0Q0 
_09390000, 

09900000 

09910000 

09920000 

Q993O0QO 

099^0000 

09950000 

09960000 
J]997a000 

09980000 

09990000 

lOOOQOOO 
.JOOIOOOO 

10020000 

10030000 

xoo<;oooo 

_10050000 - 
XOOfiOOOO 
10070000 
XOO:&00QQ 
10090000 

"loxooooo 

lOIIOOOO 
10X20000 

xorsoooo 

"lOlAOOOQ 
10150000 
10160000 
10170000 
"10130000 
10190000 
1020Q0OO 
102X0000 
X02ZOOOQ 
X023Q000 
X02<V0Q00 

_X0Z50QQa 

10260000 
10270000 
lOZSOOOO 
_X 0290000 _ 
1Q3QQQQ0 
10310000 
10320000 

^10330000 

103<4aQQQ 
1035QO0Q 
10360000 

10370000 

10330000 
10390000 
10400000 

104X0000 

10420000 
' 1Q43000Q 
1Q44QQ0Q 

^10450000 

10460000 
10470000 
10480000 

1Q490000 

10500000 
10510000 
10520000 

10530000 

10540000 
10550000 
1Q560000 

10570000 

10530000 
10590000 
1060QQQQ 

10610000 

X062QOOO 
10630000 
X0640Q00 
10650000 
I066Q000 
10670000 
-* 10680000 
3£ 10690000 
=V~107QQ000 
107X0000 
1072Q000 
10730000 
10740000 
-ae 10750000 
X 10760000 
10770000 

10780000 

10790000 
10300000 
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SPACS I 



+3 



MORMAL RETURN 



FNDHNORM OS OH 

B 8(R9) 
SPACE 1 

TA BL ED 1 S CHTBL,CHAR$-E T=AL PH A r F WC^LQCATE 

SPACE 1 
TBABEND D3 OH 

PUSH- USING 

PRQP_ 



SPACE 
AAABEHOl OS 
STM 
_LR 



USXNC a,R15 
CH Ra,=H'12' 
BHE AAABENDl 
,REmRN TQ RTM. 
^ 1 

R0.AAABEHD2 



1 



SDWA PRESENT! 
YES- 

AHEnPTinG fl£CQi(£RL; 




POINT TO REINSTATEMENT ROUTINE 
INDICATE TASK IS TO BE REINSTATED 
RETURN TO RTM 



OH 

Rl<»,R12a2CRI3) 
:10*R15_ 



USING TBABEND*R10 
DROP R15 ■ 
LR R^.Rl 
USING S DWA,.R^_ 



SAVE REGS 



SDMA ADR 



L R2,SDWAPARM 
USING EDITSB£D,R2 
LA R3,Z0<*8(,R2) 
LA R3t20q8(^R51 



GET BASE REGISTER 
GET ADDRESSABILITY 
SET 2HD BASE REG 



USING EDITS3ED+<i096,R3 
ICM R1,B'0111'.SDWAC«PC 
DROP R4 
5RL Rl,12 



GET COMPLETION CODE 



H R1,=X*OOOOOFFF' 
ST RI,RTHCQDE 
SPACE -1 

SETRP RE GS = (1A/I2). 



lOBlOQOO 
I0B20Q00 
lOaSQOQQ 
IQ84QQ0Q 

ia85aooo_ 
lasti 0.000 

10870000 
10820000 
10890000 
'10900000 
10910000 
IC920000 
J.0930000_ 
10940000 
10950000 
10960000 
10970000 
"10980000 
109900QO 
11000000 
JlOlflOOO 
11020000 
11020Q0O 
1104000Q 
JIOSOOOO 
11060000 
11070000 
11080000 
11090000 
"lUOOOOO 
11110000 
11120000 
_11130000 
111<40000 
11150000 
11160000 
_UlZ0POp 



SAVE IT 



AAABEND2 DS 
LR 
LA 

_LA_ 

: — r~ 



RC=*0£TADDR=AAAfl£ND2,FRESDWA=TE5,WKAREA = C^J 
SPACE 1 
POP USING 
S PACE 2 



BR RZ 
SPACE 1 
LTQRG 
-ETECT 



OH 
RlO.Rl 

Rll,2Q<aC,R10) 
R ll,20 <i3(.R113_ 
""RZT^'ERRORIZJ 



SET BASE REGISTER 
SET 2ND BASE REG 



To m T O ft ESraRT^DIlRESr 
GO TO IT 



H — 



MISC DATA AREA 



ZUSER 
XLATOR 



"SPACE"! 

DC CLS' 
DC ACQ) 



■ SAVEAREA DC 
SAVEKEGS DC 
DBLHQRD DC 
BUFFRDW DC 

lUFFcS PC- 

MSGID DC 
DCBNAME5 DC 
IDCB DC 

ODCB PC_ 

EDCB DC 
ISPLAODR DC 
TEMPOSN UC- 

IDSN 

MQVESTAT DC 
BED2ER0 DC 
BEDBLANfC DC 

ELMtCIR PC_ 

BEDFLAGl DC 
INEOF EQU 
PERMIERR EQU 

5£e 

FLAGl 
INIT 



ISF'O* 
18F»0» 
D'O* 

ACERRRDWl 

A ( ERRLBUFFJ . 

■"CLS' • MESSAGE ID 
AL2<L'IDC3+L'0DCB+L'EDCa) LENGTH OF DDNAMES 
CL3* • INPUT DC3 FOR REBLOCK 

CL8' • QUTPUT.DCB_F(3R_REBL0C)C_ 



POINT TO RDW 
J».0 1 NT ER Tn F^?RnR BUFFcR 



CLS'REBLJCERR 
ACQ) 



"SYSPRINT" DCB FOR REBLOOC 




CONSTANT ZEROS 
CONSTANT BLAHK 



X'OO' 
X'80« 



DC X'iJti' 

EQU x^sa» 

SPACE 1 



END OF FILE 

ERROR READING INPUT FILE 

_5£GMENLJ.E£ASmS 

MISC FLAG 
INITIALIZING 



dynamic" aTuOCATION CONTROL BLOCJCS 



K 

SPACE 

DtHRftE DC ^q.e-:o;,X:80.1.,AL3CDY.NRB.l. 

DYNRfl^ DC XLCS99RBEHD-599RB)'Q0' 

ORG DYNRB+S99R3LN-S99RB 
DC AH(S99RBeND-S99RB) 



11180000 
11190000 
11200000 

+11210000 

11220000 
11230000 
11240000 
^11250000 
11260000 
11270000 
11280000 

1129000Q 

11300000 
11310000 
11320000 

11330000 

11340000 

3f 11350000 

3E 1136OQ00 

* 11370000 

11330000 

11390000 
11400000 
11410000 
11420000 
11430000 
11440000 

^11450000 

^11460000 
11470000 
11480000 

Iia9oaoo 

11500000 
11510000 

. . . 11520000 

11530000 

11540000 
11550000 
11560000 

. J 1570000 

11530000 
11590000 
llfiOQOOO 

11610000 

11620000 
■ 11630000 
11640000 

:zz=»-ai6 50000 
n 11660000 

X 11670000 

116SQ0Q0 

^11690000 

11700000 
11710000 
11720000 
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50ALL0C 

DSCONCLS 

DSALL0C3 

P SALLO CO 

DSUNALOC 

DSUNCQNC 

OSALLOCN 



"DC ACTXTDD),AL1C125KAL3UXI30J 

DC ALU123),AL3(TXTC0HC) . 

DC ACTXTDD,TXTDSN),AL1C125),AL3CTXTSHR) 

DC A C TXTDD jrXTDSN ) , At ifl?^^^! 5fTrrOLD) 

"DC ALl(i'28),Al3CTXTDD) 

DC AL1C128 3,AL3(TXTDDU) 

DC ACTXTDD: 

DC ACT XTDSN) 

ATrxtrjew) 

A(TXTNDISP) 
ACTXTCDISP) 

AfTXTUNI TX) 

"SnXTTrtlCl 



JXTCOHC 
.TXTCONCX 
TXTTRK 
TXTHEM 
TXTtlDISP 
■ TXTCDISP 
TXTReCFM 
TXTLRECL 
TXTBLKSZ 
IXTPRIME. 
TXTSECND 
TXTUNITX 
TXTOLD 

IJCTDD 

TXTDDU 
TXTDSM 
TXTSO ■ • 
TXTSHR 



DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC" 
DC 
DC 
DC 
DC 
DC 
DC 
_DC_ 
DC 
DC 
DC 
.DC_ 



ACTXTPRIME) 
ACTXTSECND3 

A(TXTRECFM) ! - — 

"^n5:TLRECr) . • 

ALlC125).AL5CTXTaUSZ). : 
AL2CDCCDDHAI1,2>a),CL8'. ',AL2<8) 
CLS' ' _ 

-AL'2arAaRK:ar 



AL2(DALSTATS,ia),X'a^i' 
AL2CDALMDISPa.l).X'02' 
AL2(DAlCDrSP,ia).X'04' 
AL2CDALRECFM,l.l).X'*iO» 
AL2CDALLREa.,l,2J,X'0202' 
AL2<DALBLJtSZa.2).X»3C<iQ' 
AL2C DAUPRinea ^000096 ' 
"AL2CDALSECND.L,3),X'aO00Oa' 
AL2CDALUNlTa.3).CL5'SPAC£' 
AL2(DALSTA7S,l,n»X;01» 
;iL2C DALDDNAM, 1/.8 )j CLS !_! 



DC AL2(D0CDDHflM,l,8),CLa; 
DC AL2C DALDSNAM. 1, 'i'i) XLa4« 
•DC --AL2(DAt5YS0Uaa)»C'W 

5c AL2U)Al^IAX5,,Kn.X'QjLl- 

'SPACE L ____ 



STSOUT ODHAME LIST 



SQLIST DC CLS'MOMITOR' 
CLS'MYOUT' 
PLS'REPORX: 



CL8'SY50UT' 
CLS 'MPT' 
CLfl'SBG' 
.CLa_^£EO 




CLS'JSP' 
CLS'REBLKERR' 
CLS' • 



X DDHAME-DSNAME LIST FOR DISP=SHR_ 

X 

S PACE 1 



DSLlSr DC 
DSNAT DC 
DC 

r )^NAP DC 



D5NXP 
DSNXT 



DC 
DC 
DC 
DC 



CLS'ANSI* 
CLS' ANSIP' 



CLS'APPLQUT' 
CL44' ' 
CLS 'APPLQUTX' 
CL^ 



DSNCT 
. DSNCP 



DC 
DC 
DC 
DC_ 



CLS 'CNT' 
CL44' ' 
CLS'CHTP' 
CL44*- < 



DSNIT 

'dship_ 



DSMOT 
DSHQP 



DC 
DC 
DC 
J]C_ 
DC 
DC 
DC 
'DC 



CLS'IDS' 
CL44' • 
CLS'IDSP' 
CL44< 



DC 

DC CLS 
SPACE I 



CLS'COND' 
CL44' • 
CL8*CQNDX' 

'ebs'^ VSAM • ^ CL44 WAAtX . tDlsTo: 



RECOVERY' 



ODIUH.E'ALL'OC LIST FOR DISP^SHR 



• DSLI5TS DC*^^ cL8'SONLG»,X'90SX'0050SXn3lO',X'OOOQ05' 
DC CLS' • 

SPACE 1 



J.1730000 

117400Q0 
11750000 
11760000 

_J.X770000 

11780000 
11790000 
11800000 ' 

11810000 

"11820000 
11830QQQ 
11840000 

1185Q0O0 ^ 

11860000 
11870000 
11880CQ0 

11390000 

"11900000 
119I00Q0 
11920000 

11530000 

~119<40C00 
11950Q00 
11960000 

11970000 

■"11930000 
11990000 
12000000 
IZOIOOOO . 
12020000 
12030000 
12040000 

12050000 

12060000 
12070000 
12Q8QQ00 

12090000 

12100000 
12H000O 
12120000 

121300ao_ 

12140000 
12150000 
X 12160000 
^12170000. 
12180000 
12190000 
12200000 

12210000. 

12220000 
'* 12250000 
12240000 

12250000 

12260Q0Q 
12270000 
12230000 
1229000Q 
12300000 
12310000 
12320000 

12330000 

123400Q0 
12350000 
12360000 

^12370000 

12330000 
• 12390000 
12400000 

12410000 

12420000 
12430000 
12440000 

12450000 

12460000 
12470000 
12430000 

12490000 

12500000 
■ 12510000 
12520000 

12530000 

"12540000 
12550000 
12560000 

X 12570000 

3ri2530000 

X 12590000 

12600000 

12610000 
12620000 
12630000 
S 12640000 
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_«_j265aaoo 



SPACE I 

DStlSTO DC CL3»FAOUT',X'50«.X'a800*,X'SOO'i'.X'000032« 

-DC CISIQISJFIJTJ^ 



DC 
DC 
DC- 
J3C_ 
DC 
DC 



SPACE 1 



CL3'T£ST3£D2',X'5OSX'0C37',X«6liC',X'aO0boF" 
CL8'TESTBEDM'SO',X«TraO0«,X'S0O4',X' 000001' 
CL8* REJECT- ;X' 50 *;X'0aa4»,X' 5028 •irX'OOOOZS' 
_i:L8:RECOV^15aLuX10ao$i.Jtl502ai^'OOa028 » 
CL8 'STORESX' 90 '^X* 0050 SX' 1810 ^X'OOOOlfl" 
CL8' ' 



« 12660000 

12670000 
12630000 

12690000 

12700000 
12710000 
12720000 
^2120000 



a — 



DEFINITION OF PROGRAM STORAGE FOR PANEL VARlABLEs" 



JlSiL 



DSNH 
DSNS 
OSNL 
5TQ,_ 



SPACE 1 



DC 
DC 
DC 



RLS 
VERS 
AGCY 

fi£AS 

LASTSEG 
NUMB 

TRANDATA EQU 

DS_ 

RTNCODE DC 
REEZCODE DC 
DOERR DC 



DC 
DC 
DC 
-PC. 
DC 
DC 



CL*»4' 



127^0000 
12750000 
12760000 
=««127Z0CO0 
s 127SOO00 
12790000 
12800000 
12810000 



CLS* 
CL12* 
CL2' 

-.cojl: 



a — 

3£ 



SPACE 1 , 



CL6' 
CL6« » 

5TD,3(-STD,C»C« 

_aE 

CL2' ' 
CL8* ' 



12820000 
12830000 
12840000 
a2850QO0 
12860000 
12S700QO 
12830000 
.12890000 
12900QOO 
12910000 
12920000 
J2950000 



12940000 
12950000 
12960000 



DEFINITION OF ISPF SERVICE REQUESTS 



DISPLAY DC 

EDIT DC 

PRIMARY DC 

PA NEL2 DC 

PANELS DC 

CONTROL DC 

.SELECT DC 

ERRORS DC 



a22Z000Q 



CL8 'DISPLAY' 
CLS'EDIT' 
CL8'EDITB' 
CLa'EDITBl* 
'EDITB2' 



RETURN DC 
VDEFINE DC 
VGET DC 

VPUJ DC 

PROFrTE DC" 
SHARED DC 
.CHAR DC 

•HEX DC 

TBtREJm)cr- 
TBDISPL DC 
TBADD DC 
• TBTQP DC 
TaSARC DC 
TBCLOSE DC 
LOG DC 

SeiMSC PC_ 

VARTA6LE DC 
NOWRITE DC 
VARLI5T DC 
SAVLIST D C 



CL8' 

C'COHTROL' 
C'SELECT' 

C- ERRORS : 

C RETURN^ 
CLS 'VDEFINE' 
CLS'VGET' 

^cllivput: 

Cla 'PRbPlLE' ■ 

CL3 'SHARED' 

CL8'CHAR' 

CLS'HEX' 
"CLS'TBCRESTF^ 

CL3 'TBDISPL' 

CLB'TBADD' 

CLS'TBTOP' 

CLS 'TBSARG' 

CL3 'TBCLOSE' 

CLS 'LOG' 
_CL8:SETriSGJ 

CLS'VARtABLE' 



12980000 
12990000 
13000000 

.13010000 
13020000 
13030000 
13040000 

J.3O500O0 



13060000 
13070000 
13Q8O0O0 
13090000 

T5100000 
13110000 
13120000 

_151300O0 
13140000 
13150000 
13160000 
13170000 

13130000 
13190000 
13200000 
13210000 
13220000 
13230000 
13240000 

j325aaoa 

13260000 
13270000 



USERLIST 



DC 



SPACE 
l£HGTb2_IlC_ 
LENGTH4 DC 
LENGTHS DC 
LENGTH6 DC 

LEUGTHa DC_ 

LENGTHll DC 
LENGTH12 DC 
LENGTH44 DC 
iFNnTH7i nr 



CLa 'NOWRITE' 

C'CTBNUMB T3REA5)' 13280000 
-Ss-iJ J*!S5S^S°^"^^ DSNaT__LB0SNAe-J:3 DSNCUTB DSNC£-I2I 329 0 0 0 0 
r??7?.LI??^"^^ TBDSNXT TBDSHXP TBDSNOT TBDSNoH^BDSNLri33QaOOa 
r ^^"5ER3 13310000 

- 13320000 

i»_J.333000a 
^ 13340Q0Q 
13350000 
13360000 
J337000a 



DEFINITION OF lENGTH OF PANEL VARIABLES 



1 

F'2' 



F'4 ' 
F»5» 
F'6' 
F'a ' 



F'll' 
F'12' 
F'44' 
F'71 ' 



13380000 
13390000 
13400000 
Ui^lOOOO 



3£ — 
y — 



SPACE 1 



13420000 
13420000 
13440000 
-13450000 



DEFINITION OF P$\NEL VARIABLES 



SPACE 
SELCMD DC 
2USERLIT DC 

J)SNLII DC 

DSNWLIT OC 
DSNSLIT DC 
DSNLLIT DC 

Ji5M4i.riiJie 



X 

- — ^ 



C'CMDC^IEDITB]' 
C'CZUSER3 • 
C'CTBDSN )' 
' CTBDSNW) • 



13460000 
13470000 
13460000 

.13490000 
13500000 
13510000 
13520000 

.13530000 



C'CTBDSNS) • 
C'CTBDSNLJ' 
C'(T BDSN AT)' 



13540000 
13550000 
13560000 
J.35I00Q0 
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SPACE 1 



DCB'5 



n 

X 

SPACE 1 

ERRDCB DCB DDnAME^rESTBEDZ, D50RG=PS •MACRFsGM 
SPACE L 

INPDCB DCB DDNAME=INPUT,DSORG=PS,MACRF=GL 

SPACE 1 

OUTQCB DCB DDNAME=5CMTrILc, DSORG=PS , fWCRF^PM 
SPACE 1 

STOREDCB DCB DDHAME=STQR£, DSORG=PS.MACRF=PM 

^3PAC£_I 

LOeOCa DCB DDNAME=tOG,030RG=PS,MACRF=Pri 
SPACE I 

OUTDCBX DCB DDNAME=SGMTFILE# OSORG'PS ; MACRF=GL 
SPACS^l 



ERRRDN 

£RRauEE_ 

BDMODHUM 



LTORC 
SPACE 1 

DC A12CX-3S.03 

J}S XL3123. 

DC 



END 



CL8«MDO0O<i9' 



_£RfiDfLJUiEEER-RECD£IL 
EDI nOD NUMBER 
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D5NALITP 


DC 


C» (TBDSNAP) * 




DSNCLITT 


DC 


C (TBDSNCT) • 




D5NCLITP 


DC 


C'(TBOSNCP)' 




DSNIUTT 


DC 


C (TBDSNIT) ' 




DSNUITP 


DC 


CUTBDSNIPJ ' 




DSNXLITT 


DC 


C'CTBDSHXTV 




DSNXLITP 


DC 


CUTBDSNXP)' 




DSNQLITT 


DC 


C'<TBDSNOT)» 




DSNOLITP 


DC 


C'(TBDSNOP) • 




STDLIT 


DC 


C'CTBSTD)* 




.RL5LIT 


DC 


CMTBRLSD- 




VERSLIT 


DC 


C'CTBVERr 




AGCYLJT 


DC 


C'CTA) • 




REASLIT 


DC 


C'CTBREASr 




NUMBLIT 


DC 


C'<TBNUMB) ' 




LASTLIT 


DC 


CUTLASTS)' 




RTC 


DC 


CMRTC)' 




REEZ 


DC 


C'CREEZ)' ,.1 




.DD 


DC 


CUDD3' 





13530000 
13590000 
13600000 
X361000Q 
13620000 
X3630000 
13640000 
13650000 
13660000 ' 
13670000 
136^0000 
13690000 
13700000' 
13710000 
13720000 
13730000 
1374000 0 
13750000 
13760000 
13770000 



"13750000 
13790000 
13300000 
1331QQ0Q 
13320000 
13330000 
13340000 

J3a50000 
13360000'" 
13370000 
13330000 

J3890000. 
13900000 
13910000 
13920000 

U3930000. 
13940000 
13950000 
13960000 

j.39zooao_ 

99999996 
99999999 
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What is claimed is: 

1. A method for interactively translating electronic 
data interchange files, comprising the steps of: 

(a) generating a plurality of displays for interactively 
controlling the translation of an electronic data 5 
interchange fil^ 

(b) translating said electronic data interchange file 
until a translation error exists; 

(c) displaying said translation error on at least one of 
said plurality of displays so that said translation 10 
error may be corrected interactively; 

(d) correcting said displayed translation error in re- 
sponse to data entered on said at least one of said 
plurality of displays; and 

(e) repeating steps (a) through (d) until no translation 15 
error exists. 

2. The method of claim 1, wherein said electronic 
data interchange file comprises transaction data to be 
communicated from a sending computer to a receiving 
computer and said translating step occurs after commu- 20 
nicating said electronic data interchange file to said 
receiving computer. 

3. The method of claim 2, wherein said correcting 
step further comprises the steps of: 

forming a segment file for containing a portion of said 25 
electronic data mterchange file where said portion 
includes said translation error; 

placing said portion of said electronic data inter- 
change file into said segment file; 

displaying said portion on said at least one of said 30 
plurality of displays for correcting said translation 
error; and 

forming a working file comprising all correctly trans- 
lated portions of said electronic data interchange 
file. 35 



4. The method of claim 2, wherein said displaying and 
correcting steps occur interactively without the need to 
retranslate all previously translated portions of said 
electronic data interchange file. 

5, The method of claim 1, further comprising the step 
of logging each of said translation error occurring dur- 
ing the translation of said electronic data interchange 
file. 

6- The method of claim 1, further comprising the step 
of forming a working file of all correctly translated 
portions of said electronic data interchange file. 

7. A programmable machine system for interactively 
translating business transaction data between a plurality 
of different dictionary-structured transaction formats, 
said machine system including a plurality of system 
components, said machine system comprising: 
output circuitry for generating a plurality of visible 
signals corresponding to the status of translation of 
said business transaction data from one format to 
another predetermined format; 
translation circuitry for translating said business 

transaction data into said predetermined format; 
error detection and reporting circuitry for detecting 
the existence of a translation error and communi- 
cating said translatioQ error to said output cir- 
cuitry; 

editing circuitry for interactively receiving correc- 
tions to said business transaction data and for modi- 
fying said business transaction data in response to 
said corrections generating corrected business 
transaction data; and 
said translation circuitry translating said corrected 
business transaction data. 
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